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I.  background 


A.  TEE  PROBLEM! 

"Hew  would  increasing  the  number  of  ampihlbious  ships 
impact  cn  an  amphibious  landing?",  "what  happens  if 
..^"/"suppose  we  cnly  had  x  number  of  troop  helicop¬ 
ters..?".  One  way  to  answer  questions  like  these  is  to 
actually  conduct  landings  under  the  different  conditions 
desired.  However,  the  cost  of  a  single  landing  exercise  is 
enormous,  and  to  run  many  operations  would  quickly  devour 
the  entire  defense  budget.  The  next  best  option  for 
obtaining  answers  to  the  problem  above  is  the  use  of  cne  of 
the  many  tools  available  in  a  large  class  of  decision 
support  aids.  That  instrument,  which  has  become  extremely 
important  when  used  properly,  is  the  computer  simulation. 

Before  continuing,  it  is  necessary  to  clarify  some 
terms,  which  have  ever  time,  acquired  different  connota¬ 
tions.  A  model  is  a  representation  of  an  entity  or  situ¬ 
ation  by  something  else  that  has  relevant  features  or 
properties  of  the  original  [Bef.  1:  p.  10  ].-  Simulation  is  an 
analytic  technique  using  the  mathematical  and  logical  mcdels 
which  represent  a  real  system  in  order  to  study  the 
processes  over  periods  of  time.  Neither  definition  implies 
the  use  of  a  computer,  however,  for  the  purposes  of  this 
text  the  terms  will  carry  that  implication  [Ref.  1:  p.9]. 

Modelling  is  the  process  by  which  an  analyst  arrives  at  a 
model  or  simulation  [Bef.  2:  p.9]. 

A  model  or  simulation  can  be  distinguished  Qy  its  ulti¬ 
mate  purpose.  Listed  in  Figure  1.1  [Ref.  1:  p.  10]  are  some 
cf  the  more  common  ones. 
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Figure  1.1  Purpose  of  Simulation. 

The  ailitary  applications  of  simulations  ace  primarily 
concentrated  in  the  operations  category.  The  goals  of  an 
operational  type  model  are  broken  down  as  in  Figure  1.2 
[Hef.  1:  p. 13]. 


Figure  1.2  Goal  of  an  Operational  Model. 

i 

Of  the  goals  listed  above,  the  most  important  one  for 
ailitary  purposes  is  the  planning  and  evaluation  category. 
Some  of  the  aost  prevalent  uses  under  planning  and 
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evaluation  are  technical  evaluation,  doctrinal  evaluation, 
force  structure  evaluation,  and  planning.  These  classifica¬ 
tions  of  simulations  determine  the  structure  of  the  model. 
A  model  designed  for  research,  for  instance,  will  be  geared 
toward  a  technically  oriented  person  who  is  familiar  with 
computers,  programming  and  the  associated  logic.  A  military 
oriented  planning  model  must  be  designed  for  the  staff 
officer  who  will  be,  more  likely  than  not,  unfi  miliar  with 
computers  and  programming  techniques.  This  would  imply  the 
model  should  be  easy  to  use  and  be  accompanied  by  the  appro¬ 
priate  level  documentaion  for  the  non-technical  staff 
officer  or  decision  maker.  [Eef.  1:  p.  13] 

The  scenario  illustrated  in  the  first  paragraph  of  this 
thesis  was  surely  posed  to  some  staff  officer  at 
Headguarters  Marine  Corps.  The  response  was  probably  either 
to  lock  for  some  existing  model  or  contract  to  have  one 
developed.  The  result  is  that  there  are  several  programs  in 
existence  which  simulate  the  ship-to-shore  movement  of  the 
amphibious  operation.  They  exist  as  a  portion  of  a  larger 
combat  model  or  as  an  entity  by  themselves.  These  models, 
having  been  written  seme  time  ago,  were  developed  for  use  on 
large  main  frame  computers.  That  fact  automatically  limits 
the  availability  to  the  staff  officer  or  decision  maker. 

Hith  the  proliferation  of  microcomputers,  the  next 
logical  step  in  the  evolution  of  this  type  of  model  was  to 
provide  the  staff  officer  with  the  ability  to  run  the  simu¬ 
lation  from  his  desk.  This  would  allow  him  to  respond 
rapidly  to  'what  if'  type  questions  which  are  often  bantered 
about  in  planning  sections  of  any  headguarters.  That 
requirement  was,  in  fact,  made  and  a  civilian  contract  was 
let  to  develop  a  ship-to-shore  model  to  be  run  on  a  micro¬ 
computer.  Unfortunately,  for  some  reason  unknown  to  the 
author,  the  program  that  was  developed  was  not  implemented. 
It  was  'shelved'  at  the  Development  Center,  Quantico,  Va.  in 
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an  unusable  form  with  little  documentation.  The  author, 
during  his  experience  tour  was  exposed  to  the  m3  del  and  was 
made  aware  of  the  need  to  have  it  completed.  That  leads  in 
to  the  purpose  of  this  thesis. 

B.  PDBPCSE 

The  purpose  of  this  thesis  is  to  complete  the  develop¬ 
ment  of  the  amphibious  sh ip-to-shore  model  for  use  on  a 
microcomputer.  This  will  be  accomplished  by  using  a  design 
process  for  simulations  as  if  the  model  was  being  initiated 
from  scratch.  Included  will  be  the  capabilities  and  limita¬ 
tions  of  the  model  to  ensure  the  decision  raakar  has  full 
knowledge  of  the  output.  Finally,  the  finished  product  will 
be  accompanied  by  the  appropriate  level  of  documentation 
directed  at  the  primary  user. 
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II.  SIMULATIONS 


The  process  by  which  an  analyst  derives  a  model  is 
considered  as  much  an  art  as  a  science.  Thus,  there  are  no 
theorems  or  strict  rules  to  guide  one  in  the  development. 
The  actual  steps'  followed  by  the  model  builder  are  very 
situation  dependent.  However,  there  are  some  basic  techni¬ 
ques  which  are  commonly  followed  by  experienced  modellers 
and  provide  a  framework  for  good  model  development. 

The  approach  begins  with  a  simple  model  and  attempts  to 
evolve  into  a  more  elaborate  model  which  more  clDsely  resem¬ 
bles  the  actual  situation  being  modelled.  As  the  model 
achieves  the  simplified  goals,  new  problems  may  be  identi¬ 
fied  cr  greater  realism  may  be  desired  which  would  lead  to 
revisions  and  additions.  Thus,  the  evoution  of  a  model 
never  really  stops  until  it  has  outiived  its  usefulness. 

Based  on  the  definition  of  simulation  in  chapter  one,  a 
simulation:  (1)  is  concerned  with  the  operation  of  systems; 

(2)  is  concerned  with  the  solution  of  real  worL  d  problems; 
and  (3)  is  performed  as  a  service  for  those  interesteu  in 
its  behavior.  From  these  characteristics  the  criteria  for  a 
good  simulation  are: 

1.  Simple  to  understand  by  the  user 

2.  Gcal  or  purpose  directed 

3.  Robust,  i.e.,  it  does  not  give  absurd  i  nswers  when 
minor  changes  in  parameters  are  made 

4.  Easy  for  the  user  to  control  and  manipulate 

5.  Complete  on  important  issues 

6.  Adaptive,  with  an  easy  procedure  for  modification  or 
update 

7.  Evolutionary  -  start  simple  and  become  lore  complex 
in  conjunction  with  the  user’s  requirements  [Ref.  3: 
p.22] 
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With  the  above  criteria  it  mind.  Figure  2.1  [Ref.  3: 
p.24]  illustrates  a  general  design  process  for  a  simulation 
model.  Note  the  flows  which  return  to  earlier  stages  on  the 
diagram.  Those  indicate  the  iterative  process  of  the 
design.  The  following  discussion  will  elaborate  on  each 
step.  However,  keep  in  mind  the  general  nature  of  the 
process. 

The  most  .critical  step  in  the  development  of  a  model  of 
a  system  is  to  define  the  problem.  Albert  Einstein  once 
stated  that  proper  formulation  of  a  problem  was  more  impor¬ 
tant  than  its  solution  [Ref.  3:  p. 25].  One  of  the  most 

important  functions  of  an  analyst  is  to  translate  the 
problem,  often  vaguely  stated  by  the  decision  maker,  into 
precise  and  operational  terms  [Ref.  4:  p.51].  The  analysis 
begins  with  specification  of  the  goals  and  objectives  and 
the  establishment  of  boundaries  of  the  model.  A  flow 
diagram  which  neither  oversimplifies  nor  carries  too  much 
detail  is  the  next  step  in  the  problem  formulation.  Cne 
should  construct  the  model  around  the  questions  to  be 
answered  rather  than  imitate  the  real  system  exactly. 
[Ref.  3:  p. 27] 

At  this  point  a  decision  must  made  whether  simulation  is 
the  optimal  technique  for  solving  the  stated  problem.  If  a 
less  complicated,  more  direct  technique  exists,  it  should  be 
pursued  in  the  name  cf  efficiency  and  cost. 

Once  the  decision  to  use  simulation  is  mads,  the  data 
requirements  must  be  analyzed.  This  includes  data  regarding 
the  input  and  output  of  the  system  as  well  as  information 
about  the  various  components  of  the  system  [Ref-  3:  P-27]. 

Availibilty  of  input  data  for  the  system  must  be  determined 
in  addition  to  historical  output  data  for  use  ii  validation 
of  the  model.  In  conjunction  with  the  data  analysis  is  the 
identification  of  major  variables  to  be  used  in  the  system 
which  immediately  preceed  the  formulation  of  model 
subsystems. 
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Figure  2.1  General  Design  Process  for  a  Simulation  Model. 
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large  problems  should  be  segmented  into  sobs/ stems  which 
are  as  independent  of  each  other  as  possible.  This  facil- 
tates  a  logical  development  and  makes  validatioi  much  less 
complicated.  Without  the  submodels  the  entire  simulation 
model  would  have  to  be  formulated  and  validated  at  once  -  a 
formidible  task.  The  decision  maker  should  take  part  in 
this  phase  of  development  to  further  his  knowledge  of  the 
model  and  the  results  and  to  keep  the  builder  from  straying 
from  the  purpose  of  the  model.  [Ref.  4:  p.55] 

After  combining  the  subsystems  into  the  simulation,  the 
data  and  parameters  identified  ealier  should  be  gathered  to 
ensure  they  fit  into  the  model.  If  necessary  some  subsys¬ 
tems  may  have  to  be  adjusted  to  accomodate  the  data  and 
parameters.  The  next  stage  involves  choosing  an  appropriate 
computer  language  with  the  following  considerate  ns: 

1.  Efficiency  of  computer  translation  and  running  speed 

2.  The  difficulty  of  translating  the  description  cf  the 
subsystems  intc  the  computer  language 

3.  The  output  desired  from  the  simulation  and  ease  of 
obtaining  the  output 

4.  The  limitations  of  the  computer  hardware  to  use  the 
language 

Model  translation,  coding  and  debugging  the  model 
follow.  The  advantage  to  using  submodels  b5 comes  very 
evident  during  the  debug  phase.  The  more  independent  the 
submodels  are  the  easier  it  will  be  to  debug  on  a  component 
basis. 

An  important  step  in  the  design  process  is  the  valida¬ 
tion  of  the  simulation  model.  Validation  is  th=  process  of 
bringing  to  an  acceptable  level  the  user’s  cofidence  on  how 
well  the  real  system  is  being  modelled.  It  is  impossible  to 
prove  that  any  model  is  a  ’’true”  depiction  of  a  real  system, 
although  a  careful  and  thorough  evaluation  can  build  confi¬ 
dence  in  the  simulation.  £Ref.  3:  p.29]  This  area  is  very 
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deficient  in  simulation  models  found  in  DOD.  Empirical 
tests  are  questionable  or  non-existent,  and  few  efforts  are 
being  made  to  require  proper  validation.  [Eef.  Tt :  p.1S9] 
There  are  three  tests  that  may  be  used  to  validate  a 
model.  First,  results  that  are  produced  must  appear  to  be 
reasonable  based  on  experience.  Second  is  to  test  any 
assumptions  made  about  the  system  and  third  is  to  test  the 
input-output  transformations.  [Eef.  3:  p.29]  A  common 

method  of  validating  the  output  is  to  compare  it  to  histor¬ 
ical  data  collected  under  similar  conditions.  If  the  two 
are  close,  the  model  can  be  accepted  as  a  representation  of 
the  real  system.  The  ultimate  validation,  however,  is  how 
well  the  model  predicts  the  future  or  how  well  it  performs 
the  analysis  it  was  designed  to  perform.  [Eef.  4:  p.57] 

The  amount  and  type  of  experimentation  and  sensitivity 
analysis  depend  on  the  main  purpose  of  the  simulation.  At 
this  stage,  the  model  is  run  using  various  sets  of  data  and 
parameters  in  a  systematic  manner  to  observe  the  response. 
Often  it  is  at  this  point  when  flaws  and  oversights  in  plan¬ 
ning  become  more  evident  requiring  the  builder  to  retrace 
some  steps  in  the  design  process.  Deficiences  ii  estimating 
the  validity  of  input  parameters  is  a  result  of  insufficient 
or  poorly  conducted  sensitivity  analysis.  [Eef.  1:  p.189] 
The  final  two  elements  in  the  design  process  must  be 
included  in  any  simulation  project.  Implementation  refers 
to  refining  the  model,  training  the  user,  adjusting  the 
model  to  changing  conditions  and  ensuring  that  the  results 
found  are  valid.  [Bef.  3:  p.33]  Good  documentation  is 

extremely  valuable  for  facilitating  changes  ani  gaining  a 
basic  understanding  cf  the  model.  Eesources  are  wasted  as  a 
result  of  poor  documentation.  This  was  noted  by  GAO  reports 
which  investigated  many  of  the  problems  found  with  operating 
or  modifying  models.  Even  though  implementaion  and  documen- 
taion  are  tedious  and  difficult,  when  done  properly  they  can 
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extend  the  life  of  a  model.  Sore  importantly/  they  facili¬ 
tate  the  use  of  simulation  which  is  particularly  crucial  in 
an  envircnmert  heavily  oriented  toward  the  need  of  users. 
[Sef .  Is  p. 191 ] 

In  the  chapters  which  follow/  the  procedure  outlined 
above  will  be  modified  slightly  to  fit  the  conditons  under 
which  the  actual  model  development  took  place.  Each  phase 
of  th«  design  process  will  be  made  apparent  during  the  pres¬ 
entation  as  well  as  any  deviations  from  those  steps  as 
explained  above. 
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III.  THE  SISTEM 


An  amphibious  operation  is  an  attack  launchad  from  the 
sea  by  naval  and  landing  forces  embarked  in  ships  or  craft 
involving  a  landing  on  a  hostile  shore.  The  principle  type 
of  amphibious  operation  is  the  amphibious  assault  which  is 
distiguished  from  other  types  in  that  it  involves  estab¬ 
lishing  a  fcrce  on  a  hostile  shore.  The  amphibious  assault 
follows  a  sequence  of  activities  which  consist  of  planning, 
embarkation,  rehearsal,  movement  to  the  objective,  and 
finally,  assault  and  capture  of  the  objective.  [fief.  5: 
P-1-33 

The  ship-to-shore  movement  is  the  part  of  the  assault 
phase  which  pertains  to  the  timely  deployment  oE  troops  and 
equipment  from  assault  shipping  to  designated  positions 
ashore  on  the  landing  area.  This  movement  is  designed  to 
ensure  the  landing  of  troops,  equipment  ,  and  supplies  at 
the  prescribed  times  and  places  in  such  a  manner  as  to 
support  the  scheme  of  maneuver  for  operations  ashore.  The 
movement  can  be  accomplished  by  waterborne  means,  by  heli¬ 
copters,  or  by  a  combination  of  the  two.  [Ref.  6:  p.45] 

The  ship-to-shore  movement  is  the  most  critical  part  of 
the  assault  phase.  The  coordination  and  control  of  the  many 
diversified  naval  and  troop  elements  requires  a  high  degree 
of  very  detailed  planning.  Such  items  as  the  linding  craft 
and  helicopter  availability,  amphibious  vehicle  and  heli¬ 
copter  employment,  assault  schedule,  landing  sequence, 
serial  assignments  (a  serial  is  a  number  assigned  tc  an 
element  of  the  landing  force),  and  wave  assignments  are  just 
a  few  of  the  areas  to  be  planned  prior  to  execution  cf  the 
landing.  [Ref.  5:  p.11-7] 
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The  ship-t o- shore  movement  is  further  divided  into  two 
periods,  initial  unloading  and  general  unloading.  The 
initial  unloading  period  is  primarily  tactical  in  nature  and 
therefore  must  be  responsive  to  the  landing  force  require¬ 
ments  ashore.  A  tactical  situation  is  where  the  troops  and 
equipment  going  ashcie  are  prepared  to  fight.  They  are 
organized  in  combat  units  and  execute  a  set  plan  for  the 
purpose  cf  forcibly  taking  the  beach  and  landing  zones.  It 
is  during  this  period  that  the  landing  force  is  establishing 
a  foothcld  ashore  and  the  unloading  of  units  is  very  selec¬ 
tive.  The  general  unloading  period  is  logistical  in  nature 
and  involves  the  timely  delivery  of  needed  supplies  and 
equipment.  During  this  time  period,  the  majority  of  combat 
troops  are  established  ashore  and  are  involved  with  the 
execution  of  the  operational  plan  of  attack.  A  beachhead 
exists  and  is  considered  a  more  secure  rear  area  where 
supplies  and  equipment  continue  to  arrive  in  support  of  the 
combat  troops  at  the  front. 

There  are  several  descriptive  categories  of  waves* 
involved  in  the  movement  of  forces  and  equipment  ashore 
according  to  the  larding  plan.  These  categories  actually 
divide  the  entire  larding  force  and  their  equipment  into 
major  groups  to  provide  flexibility,  organization,  and 
control  of  the  landing.  Three  of  these  categories  are 
concerned  with  troops  and  their  initial  combat  supplies. 
These  are  scheduled,  cn-call,  and  nonscheduled  waves. 

Two  ether  categories  of  waves  are  are  concerned  with 
unloading  of  supplies.  These  are  called  floating  dumps  and 
landing  force  supplies  which  cnly  apply  to  the  water-borne 


1 A  wave  consists  of  a  number  of  landing  craft  cr  heli¬ 
copters  which  are  to  be  landed  simultaneously.  The  size  of 
a  wave  is  limited  by  beach  or  landing  zone  capacity  and  the 
availibility  of  vehicles.  Tactical  unit  integrity  is  para¬ 
mount  when  constructing  a  wave. 


aieans  of  delivery.  They  are  not  involved  vita  the  actual 
initial  combat  landing. 

The  vater-borne  movement  is  broken  down  into  all  five 
categories.  These  include; 

1.  Scheduled  waves  —Scheduled  waves  are  formations 
which  consist  of  landing  ships,  landing  craft,  or 
amphibious  vehicles  which  contain  troops,  equipment  , 
and  supplies  tc  be  landed  at  a  predetermii  ed  time  and 
place.  Their  landing  begins  at  H-hour  and  continues 
fcr  a  relatively  short  period  of  time. 

2.  On-call  waves  --On-call  waves  include  landing  ships, 
amphibious  vehicles,  or  landing  craft  containing 
troops,  equipment,  and  supplies  for  which  an  early 
need  ashore  is  anticipated,  but  for  which  the  time  or 
place  cannot  be  accuately  predicted.  Tie  commander 
will  call  for  these  waves  at  the  desired  time  and 
place  depending  on  the  situation  ashore. 

3.  Nonscheduled  units  — Nonscheduled  units  are  those 
landing  force  elements  and  supplies  held  in  readiness 
during  the  initial  unloading,  but  not  included  in 
scheduled  or  cn-call  waves.  The  probable  sequence  of 
landing  nonscheduled  units  is  determined  1  uring  plan¬ 
ning,  however,  the  landing  of  these  units  is  directed 
from  shore  when  the  situation  dictates. 

4.  Floating  dumps  — Floating  dumps  are  emergency 
supplies  preleaded  in  landing  craft,  amphibious  vehi¬ 
cles,  or  in  landing  ships. 

5.  landing  force  supplies  — Landing  force  supplies  are 
those  supplies  remaining  on  assault  shipping  after 
initial  combat  supplies  and  floating  dumps  have  been 
unloaded. 

As  the  amphibious  force  moves  into  the  objective  area 
the  different  types  cf  ships  move  into  various  sea  areas. 
Sea  areas  are  used  tc  minimize  possible  interfera nee  between 
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various  components  of  the  amphibious  task  forca  and  other 
supporting  forces.  Figure  3.1  [Ref.  5]  shows  these  areas. 


TYPICAL  POSITIONS  AND  AREAS  ASSIGNED 
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Figure  3.1  Amphibious  Task  Force  Areas. 

Some  definitions  of  the  various  sea  areas  follow.  The 
IOD  (line  of  departure)  is  a  designated  line  off-shore 
approximately  parallel  to  the  beach.  From  this  line, 
successive  toat  waves  are  dispatched  for  their  final  move¬ 
ment  to  the  beach.  The  waves  travel  in  boat  lanes  which 
extend  eaward  from  the  beach  to  the  LOD  and  ace  the  same 
width  as  the  beach.  Approach  lanes  are  extensions  of  the 
toat  lanes  from  the  IOD  to  the  transport  area. 

landing  ships  are  initially  staged  in  the  outer  landing 
area  and  when  instructed,  move  to  the  amphibioi  s  launching 


area.  This  is  located  seaward  of  the  LOD  and  parallel  to 
the  teach.  Landing  ships  move  in  this  area  pan  llel  to  the 
LOD  at  ahout  15  knots  and  discharge  the  amphibious  vehicles 
which  make  up  the  initial  assault  waves,  (see  Figure  3.1  ) 

Transports  move  from  the  outer  transport  area,  where 
they  were  initially  staged,  into  the  inner  transport  area. 
This  area  is  as  close  to  the  teach  as  the  hydrography2  and 
enemy  situation  will  permit  since  boat  operations  must  be 
conducted  at  a  very  slow  speed  or  at  a  dead  stop.  Landing 
craft  are  loaded  and  launched  from  this  area  and  proceed  to 
the  LCD  via  approach  lanes,  (see  Figure  3.  1  ) 

All  amphibious  vehicles  and  landing  craft  love  to  the 
LOD  at  times  designated  by  the  landing  plan.  Movement  from 
the  LCD  is  controlled  by  various  control  officers  located 
along  the  way  and  waves  move  according  to  their  category 
(scheduled,  on-call,  nonscheduled)  at  appropriate  times. 
Those  times  have  been  computed  based  on  the  number  of  vehi¬ 
cles  the  beach  can  accomodate,  speed  of  the  vehicles,  scheme 
of  maneuver,  etc.  If  the  wave  is  comprised  of  amphibious 
vehicles  there  is  no  turnaround,  which  means  that  those 
vehicles  proceed  inland  and  do  not  return  to  the  ship.  If 
the  wave  is  made  up  cf  boats,  after  unloading  they  return  to 
the  transport  areas  fcr  subseguent  loads.  Figire  3.2  is  a 
diagram  cf  the  process. 

The  helicopter  movement  is  broken  down  into  three 
groups.  This  movement  is  normally  completed  during  the 
initial  unloading  period  when  tactical3  considerations  are 
the  dominant  factors.  Once  the  helicopter-borne  movement  is 
completed,  transport  helicopters  are  employed  for  tactical 


hydrography  is  the  description  of  the  physical  condi¬ 
tions  of  a  body  of  such  as  the  depth,  type  of  bottom  (sandy, 
rocky),  currents,  etc. 

3lactical  refers  to  a  high  state  of  combat  readiness 
maintained  while  executing  a  combat  plan.  The  assumption  is 
made  that  there  will  be  contact  with  enemy  forces. 
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Figure  3.2  Boat  Landing  Process. 


and  logistical  requirements  as  needed  by  the  landing  force. 
Categories  for  the  air  movement  include: 

1.  Scheduled  £§vg5  —  This  category  consists  of  those 
assault  elements  of  the  landing  force,  together  with 
their  initial  combat  supplies,  which  will  be  landed 
by  helicopter.  Times,  places,  and  formations  for 
landing  have  been  determined.  Scheduled  landing 
begins  at  a  specified  time  and  continues  until  all 
elements  in  this  category  are  landed. 

2.  On-call,  waves  — This  category  consists  of  those  heli- 
copterborne  units  with  their  initial  combit  supplies, 
or  emergency  supplies,  whose  need  ashore  at  an  early 
heur  is  anticipated,  but  whose  time  and  place  of 
landing  cannot  be  accurately  predicted.  On-call  waves 
may  interrupt  other  landing  categories  based  on  the 
urgency  of  the  requirement.  On-call  elements  are 
held  in  readiness  aboard  shipping  and  are  landed  when 
called  by  the  appropriate  level  commander. 


3.  Ncnscheduled  units  — Nonscheduled  units  consist  of 
any  remaining  units  of  the  landing  force  and  their 
initial  combat  supplies  which  have  not  been  included 
in  either  the  scheduled  or  on-call  categories.  This 
category  can  be  interrupted  or  temporarily  suspended 
because  of  unforeseen  circumstances  in  the  situation 
ashore. 

The  shipping  carrying  the  helicopters  initially  moves  to 
the  helicopter  transport  area  which  is  generally  seaward  of 
the  outer  transport  area.  (see  Figure  3.1  )  From  this  area, 
helicopters  comprising  the  first  assault  waves  are  readied 
and  spotted  on  the  flight  decks.  On  signal,  tropps  enplane, 
and  helicopters  are  launched.  Flights  of  helicopters 
rendezvous  about  their  parent  ship  and  then  proceed  as 
predetermined  waves.  They  travel  via  designated  helicopter 
lanes  and  control  points  enroute  to  the  landing  zone. 
Figure  3.3  [Bef.  7:  p. 143  ]  is  a  diagram  of  this  process. 
The  helicopter  waves  pick  up  attack  helicopter  protection 
that  provides  ground  fire  suppression.  The  waves  land,  are 
unloaded,  and  return  to  the  ships  to  refuel  and  enplane 
subsequent  troop  serials.4  A  schematic  of  this  process  is 
found  in  Figure  3.4  [Bef.  7:  p.121]. 

ICAC  (landing  craft  air  cushion)  would  launch  from 
greater  distances  than  boats  because  of  their  speed.  They 
would  operate  much  like  helicopters  in  that  they  can  travel 
inland  to  off  load  troops  and  equipment  instead  of  stopping 
at  the  beach.  They  wculd  also  be  able  to  return  to  shipping 
for  subsequent  loads. 


4A  seriaj.  is  a  designator  (number)  given  :o  a  combat 
unit  or  a  piece  of  equipment  for  the  purpose  of  assignment 
to  a  carrier  going  to  shore.  This  provides  control  and 
organization  during  the  landing  phase  of  the  operation.  A 
wave  is  made  up  of  many  serials. 
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17.  THE  MODEL 


The  ship-to-shore  model  attempts  to  simulate  the  process 
described  in  chapter  3  of  this  paper.  Prepantion  of  the 
model  for  use  involves  construction  of  the.  serials  and 
assault  naves  which  is  done  manually  as  they  would  be  prior 
to  an  operation.  This  process  is  the  basis  for  the  largest 
of  three  data  files  used  in  the  simulation.  Un£ ortunately, 
construction  of  the  serials  and  waves  is  a  very  time 
consuming  process  and  has  not  been  automated  at  this  time. 

Two  ether  data  sources  are  needed  to  run  the  model.  One 
file  contains  parameter  values  which  are  not  subject  to 
change.  A  helicopter  time  factors  table  which  provides 
expected  times  for  various  evolutions  such  as  loading  or 
unloading  is  an  example  of  the  type  of  data  found  in  this 
file.  The  last  source  of  data  is  found  within  the  program 
itself  as  either  a  line  of  code  or  as  an  interactive  query. 
This  data  is  of  the  type  that  may  be  changed  easily  for 
various  types  of  analysis. 

The  model  utilizes  35  subroutines  to  attempt  to  trans¬ 
late  reality  into  mathematical  computations.  A  diagram  of 
the  mcdel  in  very  general  terms  is  found  in  Figure  4.1  The 
first  subroutine  in  the  program  reads  the  data  from  the  wave 
and  serial  file  and  the  parameter  file.  Also  the  variable 
data  is  entered  within  the  first  section  of  the  program. 
The  second  subroutine  initializes  the  arrays  and  clocks  to 
be  used  by  the  timing  and  activity  subroutines  based  on  the 
information  found  the  wave  data  file.  These  subroutines 
essentially  complete  the  set-up  and  initialization  of  the 
model . 
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Cnee  the  model  enters  the  EXEC  subroutine  It  continues 
the  time/event5  procedure  until  all  waves  have  been  landed. 
The  EXEC  subroutine  is  the  control  routine  in  which  all 
waves  eventually  pass.  Based  on  the  class  of  tae  wave  (air 
cr  surface)  and  the  current  activity  (load,  launch,  unload, 
return,  or  arrive  back  ship),  the  EXEC  subroutine  will  send 
the  wave  in  question  to  the  proper  subroutine  for 
manipulation. 

Frior  to  going  to  one  of  the  activity  subroutines,  the 
program  queries  whether  certain  flags  have  been  set.  If 
they  have  been  set,  one  of  the  following  routines  could  be 
called.  Five  are  for  helicopter  waves  and  four  are  for 
surface  waves.  They  are: 

•  BES1ARI  (helo)  /  BESTA RT  (surf ace)  :  Restart  timing  for 

waves  that  have  been  stalled  by  the  lack  of  deck  spots 
(helo  or  surface).  Since  in  reality  there  are  not 
enough  deck  spots  to  accomodate  all  of  the  assault 
helicopters  (landing  craft)  ,  subsequent  waves  must  wait 
for  sufficient  spots  to  load. 

•  STOCH  (helo)  /  S1CCL (s urf ace) :  Tnese  subroutines  start 
the  on-call  waves  to  load  after  the  final  scheduled 
wave  has  begun  tc  load. 

•  HA1TSH  (helo)  /  HAITSL { surf)  :  Stall  remaining  scheduled 
waves  when  one  or  more  on-call  waves  interrupt  the 
scheduled  category.  As  in  reality,  on-call  waves  can 
break  in  when  called  for.  The  model  allows  flags  to  be 
set  to  simulate  this  process. 

•  STSH (helo)  /  STSI (surf  ace) :  Start  schedule!  waves  that 
have  been  stalled  due  to  on-call  waves  interrupting  the 
sequence.  More  than  one  on-call  wave  can  interrupt  at 


Mime/event  refers  to  the  computation  of  time  required 
to  complete  a  certain  event  such  as  loading  a  helicopter. 
That  time  is  added  tc  a  continuous  running  clock  to  deter¬ 
mine  the  time  at  which  that  event  will  take  place. 
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different  times  so  the  HALISH (L) /STS1  (L)  subroutines 
can  be  called  more  than  once. 

•  HCK1D (help) :  Reevaluates  deck  spot  employn ent  if  the 
current  wave  does  not  occupy  all  spots  available.  It 
calls  WSPOT  which  calculates  the  number  of  spots  to  be 
used  in  the  current  wave. 

One  last  subroutine  will  be  called  prior  to  the  activity 
subroutines.  This  is  the  MSCRT  routine  which  acts  as  the 
master  sort  routine.  It  takes  the  lowest  time  from  six 
other  time/event  sort  routines  and  that  becomes  the  next 
event  which  is  processed  by  the  appropriate  activity 
subroutine. 

There  are  three  time  sort  routines  common  to  the  heli¬ 
copter  activities  and  three  time  sort  routines  common  tc  the 
surface  activities.  They  all  sort  through  the  waves  identi¬ 
fying  the  wave  with  the  earliest  time  for  the  next  event. 
That  wave  is  placed  cn  the  top  of  the  gueue  from  which  MSORT 
then  picks  the  lowest  time  out  of  the  six  time  sort 
routines.  listed  belcw  are  the  sort  subroutines: 

c  HSSCRT :  Scheduled  helicopter  wave  sort  routine. 

•  HC5CRT:  On-call  helicopter  wave  sort  routine. 

•  BNSORT :  Nonscheduled  helicopter  wave  sort  routine. 

•  ISSCRT ;  Scheduled  surface  wave  sort  routine. 

•  1CSCRT :  On-call  surface  wave  sort  routine. 

•  IN  SORT :  Nonscheduled  surface  wave  sort  routine. 

The  activity  subrcutines  process  each  wave  based  on  its 
class,  activity  code,  and  category  (scheduled,  on-call,  or 
nonscheduled).  There  are  five  major  activity  subroutines 
for  each  class  (air  or  surface)  .  Each  activity  subroutine 
calls  other  secondary  routines  and  the  appropriate  time  sort 
routine  as  determined  by  the  wave  category.  Once  the  wave 
has  completed  an  activity  subroutine,  it  returns  to  the  EXEC 
subroutine  and  the  cycle  begins  again.  Thus,  ea; h  wave  will 
eventually  cycle  through  five  subroutines. 
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The  following  is  a  summary  of  the  activity  subroutine 
and  their  supporting  routines: 

•  HB1D:  ^e  purpose  is  tc  load  (or  attempt  to  load)  a 
helicopter  wave  from  available  flight  deck  spots  of  the 
shipping.  Loading  will  not  be  initiated  if  (a)  no  deck 
spots  are  currently  available  or  if  (b)  insufficient 
helicopters  of  the  proper  type  to  carry  the  serials  are 
present  at  the  time.  HELD  calls  the  appropriate  time 
sort  routine  (HSSORT,  HCSORT,  or  HNSORT)  and  subroutine 
SE01S.  The  SECTS  routine  identifies  whether  all  the 
deck  spots  are  curently  being  employed  for  loading.  A 
flag  is  set  to  indicate  whetner  deck  spots  are  avail¬ 
able  cr  not. 

•  HLHCH:  This  routine  launches  a  helicopter  wave  from 
ships  and  determines  the  time  it  will  arrive  at  the 
landing  zone(s).  It  determines  the  numo  er  of  deck 
spots  made  available  to  subsequent  waves  and  restores 
those  spots.  Also  it  reevaluates  the  loading  time  for 
a  wave  being  leaded  which  had  employed  all  of  the 
remaining  deck  spots.  H1NCH  calls  the  appropriate  time 
sort  routine  (HSSORT,  HCSORT,  or  HNSORT)  and  HLCDCK  and 
EES'IART.  HLODCK  sets  up  signals  that  will  initiate  a 
reevaluation  of  the  deck  spot  employment  in  the  event 
that  the  current  wave  was  not  employing  the  last  avail¬ 
able  deck  spot.  Those  signals  will  triggec  the  use  of 
HCKLD  which  is  called  from  EXEC.  If  the  current  wave 
was  occupying  the  remaining  deck  spots,  a  flag  is  set 
to  call  RESTART  from  EXEC.  RESTART  allows  subsequent 
waves  to  employ  deck  spots  which  will  be  vacated  by  the 
current  wave. 

•  HONED:  HONLD  determines  whether  or  not  landing  zones 
are  still  occupied  by  previous  waves  and  if  so  delays 
the  landing  of  the  current  wave  until  the  pertinent 
zones  are  free  tc  use.  Also  it  calculates  the  length 
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of  time  necessary  for  this  wave  to  unload  (constrained 
ly  the  size  of  the  landing  zone).  HUNLD  calls  the 
appropriate  time  sort  routine  (HSSORT,  HCSORT,  or 
HNSCRT)  . 

«  HRTfl:  The  purpose  is  to  print  a  running  total  of  the 
personnel  ashore  and  the  firepower  ashore.  Also  HRTN 
calculates  the  time  that  the  wave  will  return  to  the 
area  of  the  shipping  and  hence  be  available  for  forma¬ 
tion  of  subsequent  waves.  It  calls  the  appropriate 
time  sort  routine  (HSSCRI,  HCSORT,  or  HNSORT )  . 

•  MHIV:  HARIV  returns  helicopters  to  the  helicopter 

pools  for  use  in  forming  subsequent  waves  after 
degrading  the  number  of  helicopters  to  reflect  mainte¬ 
nance  losses.  It  also  initiates  the  loading  process 
for  subsequent  waves.  HARIV  calls  the  appropriate  time 
sort  routine  (HSSORT,  HCSORT,  or  HNSORT) . 

The  surface  activity  subroutines  operate  in  basically 
the  same  manner  (the  first  letter  for  surface  activities  is 
E  instead  of  H).  Since  the  following  routines  are  so 
similar  to  the  helicopter  routines,  only  the  differences 
will  be  pointed  out. 

•  JRIfJ  The  purpose  is  to  load  the  landing  craft  in  a 
similar  fashion  to  the  HELD  for  helicopters..  It  calls 
the  appropriate  time  sort  routines  (LSSORT,  ICSORT,  or 
INSCRT)  and  the  subroutine  WELDER.  WELDER  calculates 
the  well  decks  to  be  used  by  landing  craft  of  each  wave 
and  indicates  whether  there  are  sufficient  openings  or 
not. 

•  BENCH:  This  routine  launches  the  surface  waves  from  the 
ships.  It  calls  the  appropriate  time  sort  routine 
(ISSORT,  LCSORT  ,  or  LN SORT)  . 

•  EUNID :  BUNLD  determines  if  the  beach  is  open  for 

landing  and  off-loads  the  wave  if  it  is  possible.  It 
calls  the  appropriate  time  sort  routia  e  (LSSORT, 
ICSCRT,  or  LNSOBT)  . 


•  EBTN:  ERTN  prints  the  runniny  total  of  personnel  ashore 

and  the  firepower  ashore.  Also,  it  returns  the  boats 

to  the  ships.  It  calls  the  appropriate  time  sort 

routine  (LSSORT,  LCSORT,  or  LNSORT)  . 

•  BARIT:  This  routine  returns  the  boats  to  tha  boat  pools 
for  subsequent  use.  It  calls  the  appropriate  time  sort 
subroutine  (LSSCET,  LCS0E1,  or  LNSORT). 

Cnee  each  wave  has  cycled  through  the  five  helicopter 
activities  cr  the  five  surface  activities,  they  are  assigned 
a  very  large  value  in  their  time  array.  This  prevents  them 
from  recycling.  The  program  will  end  when  the  last  nonsche- 
duled  surface  wave  has  gone  through  all  activities.  At  that 
point,  all  personnel  in  the  wave  data  file  will  be  ashore. 


V.  VALIDATION  AND  VEHIFICATION 


A.  GIHEFAI 

The  purpose  of  validation6  of  a  model  is  to  bring  to  an 
acceptable  level  the  user’s  confidence  on  how  vz  11  the  real 
system  is  being  modelled  [Bef.  3:  p.29].  A  common  method 
and  perhaps  the  best  is  to  compare  the  results  of  the  model 
with  historical  data.  However,  after  some  research  it  was 
discovered  that  there  is  a  lack  of  historical  data 
concerning  actual  ship- to- shore  operations  in  the  Marine 
Corps.  Although  there  is  data  collected  for  reports  which 
are  required  after  training  exercises,  none  of  the  pertinant 
information  is  retained  after  the  reports  have  been 
compiled. 

The  next  best  method  available  to  verify  this  model  was 
to  compare  the  results  to  another  sophisticated  simulation 
designed  and  refined  to  run  on  a  large  main  frame  computer. 
Several  such  models  exist  and  the  results  utilized  in  this 
thesis  are  found  in  a  study  which  employed  one  of  those 
models  [ Bef.  9 ]. 

This  section  will  be  divided  into  two  major  subsections 
for  the  purposes  of  organization.  The  first  will,  be 
concerned  with  verification  and  will  cover  an  initial  phase 
using  a  simplified  test  data  set  and  the  second  phase  will 
use  mere  complicated  input  data.  The  second  major  subsec¬ 
tion  will  involve  sensitivity  analysis  of  the  model. 


6Although  there  are  many  authors  who  distinguish  between 
"verification”  and  "validation"  of  a  model,  there  is  no 
consistent  use  of  the  terms  in  the  literature.  Therefore, 
the  terms  will  be  used  interchangeably  in  this  thesis  ana 
have  the  same  meaning  [Bef.  8:  p.631]. 


B.  VALIDATION 


1.  Initial  Phase:  Simp lif ied  I nput  File 

The  initial  phase  of  the  verification  analysis  is 
designed  to  ensure  the  model  is  operating  correctly  for  a 
simplified  case  which  can  he  computed  by  hand.  A  simple 
landing  plan  will  net  test  all  the  routines  within  the 
program.  However,  the  major  routines  will  be  exercised  to 
demonstrate  that  the  basic  logic  is  working. 

The  input  data  for  the  model  for  this  phase  is 
located  in  Table  I  .  As  one  can  observe  the  landing  plan  is 
reduced  to  essential  information  only.  Data  file  T-1.DAT 
remains  unchanged  and  the  interactive  input  provides  the 
parameters  necessary  to  run  this  test.  At  this  point  many 
acronyms  will  appear  in  the  text  and  tables.  Appendix  A 
contains  a  glossary  of  those  acronyms  that  will  be 
encountered. 

Using  the  data  in  the  Helo  Time  Factors  Table  (Table 
XVIII),  hand  calculations  were  made  to  determine  the  time 
that  each  wave  would  land  and  unload  in  the  LZ  f: om  the  time 
the  wave  was  loaded  cn  the  ship.  Also  the  number  of  troops 
being  unloaded  was  computed  at  this  time.  Table  II  gives 
the  results  of  the  model  and  those  of  the  hand  calculations. 

It  is  obvious  by  the  results  of  this  extremely 
simple  run  that  the  model  is  at  least  functioning  in  a  basic 
mode.  .  To  attempt  to  verify  a  complex  landing  plan  by  hand 
calculations  would  be  ludicrous.  Therefore  the  method 
alluded  to  in  the  introduction  of  this  chapter,  comparison 
with  historical  data,  would  be  the  best  way  to  verify  a 
large  landing  plan.  However,  since  there  is  a  lack  of 
historical  data,  another  more  sophisticated  simulation  was 
employed. 


TABLE 

I 

Input  Parameters  for 

Simplified  Test 

La^d  '  ns  Plan  Test 

.  Have/Serial  # 

Pe  rs 

Carrier 

Type 

Number 

Carriers 

Pest 

Sched  helo  #1/#1 

1  0 

CH-4  6 

2 

R-1 

Sched  helo  #1/#2 

1  0 

CH-46 

2 

R-1 

Sched  helo  #2/#1 

1  0 

CH-46 

2 

R-1 

Sched  helo  #2/#1 

10 

CH-46 

2 

R-1 

Sched  surf  #1/#1 

1  0 

LCM-8 

2 

G-1 

On-call  helo  #1  /#  1 

1  0 

CH-46 

2 

R-1 

On-call  surf  11/#  1 

1  0 

LCM-8 

2 

G-1 

Nonscted  helo  # 1/ t 1 

10 

CH-4  6 

2 

R-1 

Nonsched  surf  #1/11 

10 

LCM-8 

2 

G-1 

Ijgiut  parameters 

Values 

Operational  deck  spots 

60 

Helicopter  Launch  distance 

10  NM 

Shore  to  landing  zone 

distance 

2  NM 

Boat  launch  distance 

8  NM 

Landing  zone  size 

Unlimitel 

Beach  size 

Unlimited 

Number  of  carriers 

Helcs 

12 

Eoats 

4 

Boat  launch  hour 

0 

Helo  launch  hour 

0 
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TABLE  II 

- 1 

Results  of 

Simplified 

Data  Set 

Run 

Time  of  unload 
on  LZ/beach 

#  05  rscnnel 
ashore 

gave 

Mo  del 

Hand 

Hods  1 

Hand 

Sched  helo  #1 

21 

21 

2D 

20 

Sc  bed  helo  #2 

27 

27 

40 

40 

Cn-call  helo  #1 

29 

29 

5D 

50 

Nonsched  helo  #1 

38 

38 

60 

60 

Cn-call  surf  #1 

55 

55 

70 

70 

Nonsched  surf  #1 

55 

55 

80 

80 

2.  Phase  Two:  Ccgpariscn  to  Large  Scale  Simulation 


A  computerized  amphibious  assault  model  (CAAM)  was 
used  in  the  study  in  [Bef.  9].  CA AM  utilized  a  computer 
language  called  GPSS  (General  Purpose  Simulation  System) 
which  is  designed  specifically  to  run  simulations.  Since 
the  study  was  mainly  concerned  with  the  air  portion  of  the 
amphibious  landing ,  all  of  the  results  deal  with 
helicopoter-borne  assaults  only.  This  is  not  a  problem 
since  SHIPSHOH  has  the  ability  to  run  in  an  all  helicopter 
mode,  all  surface  mode,  or  a  combination  of  the  two.  Thus, 
for  the  purposes  of  the  validation,  only  the  helicopter 
operaticn  of  SHIPSHOE  will  be  utilized.  Although  this  is 
not  considered  an  ideal  situation,  the  results  from  ether 
simulation  models  were  not  available. 

Several  sets  of  results  were  contained  in  the 
Amphibious  lift  Factors  Study.  Four  of  these  will  be  used 
to  make  the  comparisons.  An  attempt  was  made  to  duplicate 
the  CAAM  inputs  in  order  to  reach  some  viable  conclusions 


about  the  comparisons.  Duplication  was  not  possible  in  all 
cases.  However,  the  input  parameters  that  were  used  by 
SHIPSHOB  came  very  close  to  those  used  in  CAAM. 

A  case  base  was  used  as  a  standard  for  comparison. 
It  consisted  of  a  set  of  input  parameters  whica  produced  a 
profile  of  the  progress  of  the  landing.  The  base  case  was 
then  compared  to  other  situations  to  obsevre  the  effect  on 
the  landing  profile.  Table  III  contains  the  base  case. 


TABLE  III 

Base  Case  for  CAAM  and  SHIPSHOB  Comparisons 


i&anch  Ei§t 

50  NH 


Humber  of  Helicopters 
CH-46  CH-53D  CH-53E 


156 


Speed  (type  load) 
Internal  External 

120  kts  1.00  kts 

Beach  to  LZ 
Dista  nee 

5  N  M 


80 


32 


Operatonal 
Deck  Spots 


Attrition 

0 

Nub  ber  of 
LZ's 


114 


Size  of  Landing 
Zone 

Infinite 


The  following  section  will  present  four  situations 
involving  different  input  parameters  for  both  CAAM  and 
SHIPSHOR.  The  parameters  will  be  listed  followed  by  the 
graphic  presentation  of  each  case. 
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PERSONNEL 

3000  4000  5000  6000 


a.  CA AH  vs  SHIPSHOR:  General  Comparison 
NumbSI  of  Helicopters 

1.  Base  Case:  156  CH-46  ,  80  CH-53D,  32  CH-53S 

2.  1.5  Ring:  108  CH-46,  64  CH-53D,  32  CH-53E 

3.  1.0  Wing:  72  CH-46  ,  48  CH-53D,  16  CH-53E 


NUMBER  OF  HELICOPTERS:  CMM 


- !  1 .5  WING 


Figure  5. 1  Huaber  of  Helicopters:  CAAB 


NUMBER  OF  HELICOPTERS 


Figure  5. 


TIME 


Huaber  of  Helicopters:  S9IPSHOB 


personnel 


Helicopter  launch  Distance 


1.  Base  case:  50  HM 

2.  Alternate  case  #1:  35  N M 

3.  Alternate  case  #2:  15  NH 


Figure  5.3  Helicopter  Launch  Distance:  CAAH 


°ERSONNEL 
5000  5500 


Operational  Deck  Spots 

1.  Base  case:  114  operational  deck  spots 

2.  Alternate  case  #1:  176  operational  deck  spots 

3.  Alternate  case  #2:  57  operational  deck  spots 


Figure  5.5  Operational  Deck  Spots:  CAAM. 


MIX  OF  LAUNCH  DISTANCES  AND  NUMBER  OF  HELOS 


Figure  5.8  Mix  of  launch  Distances  and  #  Helos:  SHIPSHOR. 

Although  not  exactly  alike,  CAAM  and  SHIPSHOR 
tend  to  exhibit  similar  behavior  when  changing  parameters  as 
shown  within  each  graph  above.  Additionally,  comparison 
between  CAAM  and  SHIPSHOR  under  like  conditions  iemonstrates 
that  the  models  are  producing  similar  landing  profiles.  The 
next  section  will  depict  the  similarities  and  differences 
through  direct  comparison. 
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fc.  CAAM  vs  SfilPSHO R:  Direct  Comparison 

The  next  set  of  graphs  shows  a  direc 
of  CAAM  and  SHIPSHrR  for  the  parameters  used  ab 
percent  confidence  interval  around  the  CAAM  prof 
a  means  of  judging  the  performance  of  SHIPSHOR. 


BASE  CASE:  CAAM  VS  SHIPSHOR 


/// 


-  CAAM 

- SHIPSHOR 

- 10  PERCENT  CONFIDENCE  INTERVAL 


TIME  (MIN) 


PERCENT  PERSONNEL 


igure  5.11  15  IH  launch  Distance  and  35  NN  Laanch  Distance. 
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PERCENT  PERSONNEL  PERCENT  PERSONNEL 

0.4  O.S  OJ  1.0  _ fLi _ 06 


57  OP  DECK  SPOTS:  CAAM  VS  SHIPSHOR 


o 


- 1 _ I _ I _ I - 1 - 1 

)  100  200  300 

TIME  (MIN) 


176  OP  DECK  SPOTS:  CAAM  VS  SHIPSHOR 


Figure  5.12  57  and  176  Operational  Deck  Spots. 
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PERCENT  PERSONNEL  PERCENT  PERSONNEL 

0.4  o.o  o.a  i.o  _ 2^ _ 2^ _ 2^ _ 2^ 


TIME  (MIN) 


35  NM/1.5  WING:  CAAM  VS  SHiPSHOR 


TIME  (MIN) 


The  SHIPSHOR  model,  as  exhibited  above,  tracxs 
between  the  confidence  limits  for  the  most  part.  The 
biggest  discrepencies  between  the  two  models  is  found  in  the 
first  30  or  40  minutes  of  the  landing.  CAAM  displays  a 
rapid,  almost  instantaneous,  build-up  where  SHIPSHOR  is  more 
gradual.  This  may  be  explained  by  the  manner  in  which 
SHIPSHOE  increments  the  initial  waves  at  one  minute  apart. 
Eepending  on  deck  spot  and  helicopter  availibility ,  addi¬ 
tional  time  delays  may  be  encountered.  Thus,  tie  resulting 
build-up  ashore  is  slower. 

At  this  point  one  can  conclude  tiat  the  two 
models,  for  the  particular  data  used,  produce  similar 
results.  However,  as  discussed  earlier  in  this  thesis,  one 
can  net  conclude  that  SHIPSHOE  is  a  fully  validated  model. 
That  won't  happen  until  the  model  is  in  use  and  has  been 
modified  to  reflect  data  from  actual  operations.  There  are 
many  possible  ways  tc  disclaim  the  validity  of  this  model. 
Although  CAAM  was  used  in  a  study  that  was  published,  there 
is  nothing  that  guarentees  the  validity  of  CAAM.  Shat 
should  be  recognized  by  the  above  analysis  is  that  the 
confidence  level  in  SHIPSHOE  has  been  raised  to  that  of 
CAAM.  Since  the  authors  of  the  study  based  tieir  conclu¬ 
sions  cn  the  output  of  CAAM,  there  is  no  reason  at  this 
point  to  discount  the  output  of  SHIPSHOR. 

C.  SENSITIVITY  ANALYSIS 
1 .  General 

The  purpose  of  sensitivity  analysis  is  t  o  determine 
the  sensitivity  of  our  results  to  the  values  of  the  parame¬ 
ters  used.  It  normally  consists  of  a  systematic  varying  of 
the  parameters  of  interest  and  observing  the  response  of  the 
model.  If  the  responses  of  interest  vary  greatly  with 
slight  variations  or  vary  in  a  manner  not  expected  by 
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experience,  then  there  may  exist  justification  for  expendi¬ 
ture  cf  more  time  to  obtain  better  results.  [Ref.  3] 

The  approach  cf  this  thesis  to  sensitivity  analysis 
is  twofold,  graphical  and  numerical.  A  graphical  presenta¬ 
tion  of  the  landing  profile  with  different  parameters  gives 
an  overall  picture  cf  the  effect  of  changing  input  values. 
The  numerical  analysis  involves  the  selection  of  an  MOE 
(measure  of  effectiveness)  .  The  changes  observ  ed  in  that 
MOE  with  a  change  in  a  particular  value  of  input  give  a 
numerical  feel  for  the  sensitivty. 

There  are  a  myriad  of  MOE's  for  an  amphioious  opera¬ 
tion.  They  depend  or  the  desires  of  the  commander,  planner, 
or  in  this  case,  the  user  of  the  model.  The  commander  may 
want  tc  know  the  number  0*.  troops  ashore  at  a  given  time  in 
the  operation.  The  planner  may  want  to  know  the  total  time 
required  to  get  a  certain  number  of  troops  ashore. 

lor  the  purposes  of  this  thesis  the  MOE  will  be  the 
number  of  personnel  ashore  at  three  hours  into  the  opera¬ 
tion.  The  first  several  hours  of  a  landing  ars  most  crit¬ 
ical  and  from  the  author' s  experience  would  be  cf  concern 
to  a  commander  of  the  operation.  The  choice  of  a  different 
MOE  would  produce  different  sensitivity  relations  in  the 
results.  Under  one  MOE  a  comparison  of  two  sets  of  input 
parameters  may  be  greater  than  under  a  different  MOE  since 
the  profile  of  the  landing  is  a  step  function. 

The  pictoral  represntation  will  be  cutoff  at  the  200 
minute  pcint  to  enable  observation  of  the  first  three  hours 
in  the  landing.  The  numerical  method  will  introduce  a  term 
used  for  comparison  purposes.  It  will  take  the  form  of: 


Sensitivity  Index 


Change  in  MOE 


Change  a  input  parameter 


Sensitivity  Index  = 


Change  in  #  personnel  ashors  at  3  hrs. 


Change  in  input  parameter 


The  method  of  presentation  will  show  a  set  of  curves 
reflecting  the  change  of  a  single  parameter  from  a  base  set 
of  parameters.  Then  a  table  will  follow  with  the  numerical 
values  of  the  sensitivity  index. 

Since  there  is  a  large  number  of  parameters,  there 
is  an  even  greater  number  of  combinations  of  parameters 
producing  different  sets  cf  results.  Therefore  the 

following  analysis  will  present  only  a  small  subset  of  all 
possible  combinations. 

2.  Graphics  and  Kumerics 

The  base  case  for  the  sensitivity  anal  ysis  which 
follows  is  contained  in  Table  IV  .  The  subsequent  situ¬ 
ations  list  only  the  parameters  of  interest,  then  the  graph 
of  the  different  cases,  followed  by  the  numerics. 


p  „* 


TABLE  IV 

Input  Data  for  the  Base  Case 


Helo  Number  of  Helicopters 


launch  Cist 

CH-46 

CHz53D  CHz53E 

Att  r  it  ion 

10  NH 

130 

63  27 

•  0 

Number 

of  boats 

1VT  LCK-6 

1CM-8 

LCU  LST 

i.ARC 

249  52 

42 

28  0 

12 

Speed  (type  load) 

Operatonal 

Nun  ber  of 

IHtsinal  £Xte£nal 

S£ots 

LZLs 

120  kts  100  kts 

100 

2 

Eeach  to  LZ 

Size 

of  Landing 

LVT  Launch 

Distance 

Zone 

distance 

5  NM 

48  helos 

5  NM 

Number  of 

beaches 

Beach  Size 

one 

6  LVTs 

PERSONNEL 

2000  4000  6000  8000 


Helicopter  lime  Factors 


1.  Base  case:  Helicopter  time  factors  table 

2.  Alternate  #1:  load  time  6  minutes 

3.  Alternate  #2:  load  time  10  minutes 

4.  Alternate  #3:  load  time  15  minutes 

5.  Alternate  #4:  rouble  helo  time  factors  taa le 


HELO  TIME  FACTORS 


0  50  100  150  200 

TIME 


Figure  5.  14  Helicopter  Time  Factors 
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TABU  V 

Sensitivity  Index:  Helicopter  Time  Factmrs 


Parameter  Humber  personnel  ashore  (3  h:_s.) 


Base:  6894 
Alternate  # 1 :  7110 
Alternate  #2:  6542 
Alternate  13:  6404 
Alternate  #4:  6266 


Change  in  Parameter 

Change  in  HOE 

Sei s.  Index 

(it  minute  si 

(#  troops  ashore) 

(M3 E/para. 1 

Base  -  Alt  #2; 

C 

w 

352 

-71 

Alt  #1  -  Alt  #2: 

4 

568 

-  142 

Alt  #2  -  Alt  #3: 

c 

138 

-28 

Base  -  Alt  *3: 

10 

490 

-49 

60 


PERSONNEL 

4000  6000  8000 


Eeach  size 

1.  Base  case:  6  LVTs 

2.  Alternate  #1:  2  LVTs 

3.  Alternate  #2:  4  LVTs 

4.  Alternate  #3:  8  LVTs 

5.  Alternate  #4:  10  LVTs 


TABLE  ?I 

Sensitivity  Index:  Beach  Size 


Parameter 

Number  personnel  ashore  (3  h:s.) 

Base: 

6894 

Alternate 

#1: 

56  04 

Alternate 

#2: 

6534 

Alternate 

#3: 

6894 

Alternate 

#4 : 

7097 

Change  in  Parameter 

(in  LVTS) 

Change  in  HOE 

(1  troops  ashgjre) 

Seis.  Index 

(HO  E/para. ) 

Base  -  Alt 

#4: 

2 

360 

♦  180 

Alt  #1  -  Alt 

#2: 

2 

930 

♦  465 

Alt  #2  -  Alt 

#4: 

6 

563 

♦  94 

Alt  #1  -  Alt 

#4: 

8 

1493 

►  187 

Alt  #1  -  Alt 

#3: 

6 

1290 

♦  215 

PERSONNEL 

2000  4000  6000  8000 


1. 

2. 

3. 

a. 


Base  case: 
Alternate  #1: 
Alternate  #2: 
Alternate  #3: 
Alternate  #4: 


48  CH-46  Helicopters 
6  CH-46  Helicopters 
4  CH-46  Helicopters 
3  CH-46  Helicopters 
2  CH-46  Helicopters 


LANDING  ZONE  SIZE 


Figure  5.16  Landing  Zone  Size. 


TABLE  VII 

Sensitivity  Index:  Landing  Zone  Size 


Parameter 

Number  personnel 

Base : 

68  94 

Alternate 

#1: 

6532 

Alternate 

#2: 

5866 

Alternate 

#3: 

5650 

Alternate 

#4: 

5495 

Change  in  Parameter 

Change  in  MOE 

Seis.  Index 

(A£  £Hl46s) 

(i  troops  ashore) 

(MOS/para.) 

Base  -  Alt 

#1: 

42 

362 

-9 

Alt  #1  -  Alt 

#2: 

2 

666 

-  333 

Alt  #2  -  Alt 

#3; 

1 

216 

-216 

Alt  #3  -  Alt 

#4: 

1 

155 

-  155 

Alt  #1  -  Alt 

#3: 

3 

882 

-294 

Alt  *1  -  Alt 

#4: 

4 

1037 

-  260 

Alt  #2  -  Alt 

*4: 

2 

371 

-186 

Alt  #2  -  Alt  t4:  2 


Operational  Deck  Spots 


1. 

Base  case 

• 

• 

100 

2. 

Alternate 

#1: 

176 

3. 

Alternate 

#2: 

114 

4. 

Alternate 

#3: 

60 

Figure  5.17  Operational  Deck  Spots. 


TABLE  fill 

Sensitivity  Index:  Operational  Deck  Spots 


Parameter 


Kumber  personnel  ashore  (3  h:  s. ) 


Base:  6894 
Alternate  #1:  6394 
Alternate  #2:  6894 
Alternate  #3:  6404 
Alternate  #4:  5866 


Change  in  Parameter 
(in  deck  spots) 


Change  in  MOE 
(#  troops  ashore) 


Seis.  Index 
(M3  E/para.) 


Base 

- 

Alt 

#1: 

76 

Alt 

#1  - 

Alt 

#2: 

62 

Alt 

#2  - 

Alt 

#3: 

54 

Alt 

#3  - 

Alt 

#4: 

40 

Alt 

#1  - 

Alt 

#3: 

116 

Alt 

#1  - 

Alt 

#4: 

156 

Alt 

#2  - 

Alt 

#4: 

S4 

0 

0 

0 

0 

490 

“10 

538 

-11 

882 

-7 

1037 

-6 

371 

-4 

i 


Number  of  6  Helicopter  Size  d  Landing  Zones 

1.  Case  #1:  6  helicopter  size  /  1  landing  zones 

2.  Case  #2:  6  helicopter  size  /  2  landing  zones 

3.  Case  #3:  6  helicopter  size  /  3  landing  zones 

4.  Case  #4:  6  helicopter  size  /  4  landing  zones 


Figure  5.19  luabez  of  6  Helicopter  Sized  Landing  Zones. 
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TABLE  IX 


Sea  : tivity  Index:  #  of  6  Helo  Sized 


Parameter 


dumber  personnel  ashore  (3  h:s.) 


Case  #1: 
Case  #2: 
Case  13: 
Case  14: 


6266 

6394 

6532 

6532 


Change  in  Parameter 
(in  I  IZs) 

Case  II  -  Case  #2:  ' 
Case  12  -  Case  #3 :  ' 
Case  13  -  Case  #4:  ‘ 
Case  II  -  Case  13 :  « 
Case  II  -  Case  #4 :  : 
Case  12  -  Case  14 :  ! 


Change  in  HOE 
{I  troops  ashore) 


Sei s.  Index 
(HQE/para.) 

♦  123 

♦  138 


♦  133 


Number  of  4  Helicopter  Size d  landing  Zones 

1.  Case  #1:  4  helicopter  size  /  1  landing  zones 

2.  Case  #2:  4  helicopter  size  /  2  landing  zones 

3.  Case  #3:  4  helicopter  size  /  3  landing  zones 

4.  Case  #4:  4  helicopter  size  /  4  landing  zones 


SIZE  AND  NUMBER.  OF  LANDING  ZONES 


Figare  5.19  Humber  of  4  Helicopter  Sized  Landing  Zones 


TABLE  X 

Sensitivity  Index:  #  of  4  Helo  Sized  LZs 


Parameter  Number  personnel  ashore  (3  h:_s. ) 


Case  #1 
Case  #2 
Case  #3 
Case  #4 


5866 

5866 

6756 

6756 


C  hange 

in 

Parameter 

Change  in  HOE 

Seis.  Index 

(in  * 

LZs) 

(i  troops  ashore) 

(HOE/para.) 

Case  #1 

- 

Case 

#2: 

1 

0 

0 

Case  #2 

- 

Case 

#3: 

1 

890 

♦  890 

Case  #3 

- 

Case 

#4: 

1 

0 

0 

Case  #1 

- 

Case 

#3: 

2 

890 

♦  445 

Case  #1 

- 

Case 

#4: 

3 

890 

♦  297 

Case  #2 

— 

Case 

#4; 

2 

890 

♦  445 

PERSONNEL 

4000  6000  8000 


Heli ccpt  cr  launch  Distance 

1.  Base  case:  10  NM 

2.  Alternate  #1:  20  NM 

3.  Alternate  #2:  30  NM 

4.  Alternate  #3:  40  NM 

5.  Alternate  #4:  50  NM 


HELICOPTER  UUNCH  DISTANCES 


Figure  5.20  Helicopter  Launch  Distance 


TABLE  XI 

Sensitivity  Index:  Helicopter  Launch  Distance 


Parameter 

Number  personnel 

Base : 

68  94 

Alternate 

#1: 

6532 

Alternate 

#2: 

64  04 

Alternate 

#3: 

6266 

Alternate 

#4: 

60  04 

Change  in  Parameter 

(in  m 


Change  in  HOE 
(i  trcops  ashore) 


Seis.  Index 
(HOE/para .) 


Base  - 

- 

Alt 

#1: 

10 

362 

-37 

Alt  #1 

- 

Alt 

#2: 

10 

128 

-13 

Alt  #2 

- 

Alt 

#3: 

10 

138 

-14 

Alt  #3 

- 

Alt 

#4: 

40 

538 

-1  1 

Alt  #1 

- 

Alt 

#3: 

20 

266 

-14 

Alt  #1 

- 

Alt 

#4: 

30 

528 

-18 

Alt  #2 

- 

Alt 

#4: 

20 

400 

-20 

Base 

- 

Alt 

#2 : 

20 

490 

-25 

Base 

- 

Alt 

#3: 

30 

628 

-21 

Base 

— 

Alt 

14: 

40 

890 

-23 

ERSONNEL 


;  Number 

of  Helicopter 

s 

i 

Base  case: 

130 

CH-46, 

63 

CH-53D, 

27 

CH-  53E 

2. 

Alternate  #1: 

156 

CH-46, 

80 

CH-53D, 

32 

CH-53E 

3. 

Alternate  #2: 

108 

CH-46, 

64 

CH-53D, 

32 

CH-53E 

4. 

Alternate  #3: 

80 

CH-46, 

40 

CH-53D, 

15 

CH-  53E 

1  5. 

Alternate  #4: 

72 

CH-46, 

48 

CH-53D, 

16 

CH-53E 

NUMBERS  OE  HELICOPTERS 


Figure  5.21  Vusber  of  Helicopters 


TABLE  XII 

Sensitivity  Index:  Number  of  Helicopters 


Parameter 

Number  personnel  ashore  (3  h:s.) 

Base: 

6894 

Alternate 

#1: 

71 10 

Alternate 

#2: 

6670 

Alternate 

#3: 

6007 

Alternate 

#4: 

6266 

Change  in  Parameter 

Change  in  HOE 

Sei s.  Index 

(no  unit) 

{#  troops  ashore) 

(HO  E/para.) 

Base  -  Alt  #1: 

+  216 

H/A 

Alt  #1  -  Alt  #2: 

-224 

N/A 

Alt  #2  -  Alt  #3: 

-663 

N/A 

Alt  #3  -  Alt  #4: 

+  259 

N/A 

Alt  #1  -  Alt  #3: 

-1103 

N/A 

Alt  #1  -  Alt  #4: 

-844 

N/A 

Alt  #2  -  Alt  #4: 

-404 

N/A 

Base  -  Alt  #2: 

-224 

N/A 

Base  -  Alt  #3: 

-887 

N/A 

Base  -  Alt  #4: 

-628 

N/A 

Note:  Since  there  were 

three  parameters 

chang; d  at 

one  time  during  this  run.  no  unit  could  be 
devised  for  the  denominator  of  the  sensitivity 
index.  However,  an  idea  of  the  model’s  response 
can  be  obtained  from  the  change  in  HOE  values. 


Number  of  CH-46  He 

1.  Base  case: 

2.  Alternate  # 

3.  Alternate  # 

4.  Alternate  # 

5.  Alternate  # 


i copters 
130 


lumber  of  CH-46  Helicopters 


TABLE  XIII 

Sensitivity  Index:  Nuaber  of  CH-46  Helicopters 


Parameter 

Number  personnel 

Base: 

6894 

Alternate 

#1: 

6670 

Alternate 

#2: 

6670 

Alternate 

#3: 

5987 

Alternate 

#4; 

5599 

Change 

in  Parameter 

Change  in  JJOE 

Seis.  Index 

(in  # 

of  CH- 

46s) 

(i  troops  ashore) 

(*13  E/para .) 

Base  - 

- 

Alt 

11: 

22 

224 

-11 

Alt  #1 

- 

Alt 

#2: 

36 

0 

0 

Alt  #2 

- 

Alt 

#3: 

18 

683 

-38 

Alt  #3 

- 

Alt 

#4; 

18 

298 

-17 

Alt  #1 

- 

Alt 

#3: 

54 

683 

-13 

Alt  #1 

- 

Alt 

#4: 

72 

1071 

-15 

Alt  #2 

- 

Alt 

#4: 

36 

1071 

-30 

Base 

- 

Alt 

*2: 

58 

224 

-4 

Base 

- 

Alt 

#3: 

76 

907 

-12 

Base 

- 

Alt 

#4: 

94 

1295 

-14 

Number  of  Eeaches 


1.  Base  case: 

2.  Alternate  #1: 

3.  Alternate  #2:  ; 

4.  Alternate  #3:  < 


NUMBER  OF  BEACHES 


TIME 


.23  Rusher  of  Beaches. 


TABLE  XIV 

Sensitivity  Index:  Number  of  Beaches 


Parameter  Number  personnel  ashore  (3  h:_s. ) 


Base: 

6894 

Alternate 

#1: 

6894 

Alternate 

#2: 

7097 

Alternate 

#3: 

7097 

Change 

in  Parameter 

Change  in  MOE 

S eis.  Index 

(IS  bf ashes) 

(i  troops  ashore) 

(M3  E/para.) 

Base  - 

■ '  Alt 

#1: 

1 

0 

0 

Alt  #1 

-  Alt 

#2: 

1 

203 

♦  203 

Alt  #2 

-  Alt 

#3: 

1 

0 

0 

Alt  #1 

-  Alt 

#3: 

2 

203 

♦  102 

Base 

-  Alt 

#2: 

2 

203 

♦  102 

Base 

-  Alt 

#3: 

3 

203 

♦  68 

«*■ 

>;!  landing  Craft  Launch  Distance 


e  . 

i. 

Base  case: 

2  NM 

1 

2. 

Alternate  #1: 

6  NM 

•> 

3, 

Alternate  #2: 

8  NM 

-y- 

is 

4. 

Alternate  #3: 

10  NM 

TABLE  XV 

Sensitivity  Index:  Landing  Craft  Launch  Distance 


Parameter 

Base: 

Alternate  # 1 
Alternate  #2 
Alternate  #3 


Number  personnel  ashore  (3  h:  s . ) 

6894 

6894 

6534 

6244 


Change  in  Parameter 
(in  NM) 

Change  in  HOE 
(1  troops  ashore) 

Seis.  Index 

(HD  E/para.) 

Ease  -  Alt 

#1 

4 

0 

0 

Alt  #1  -  Alt 

#2 

2 

360 

180 

Alt  #2  -  Alt 

#3 

2 

290 

145 

Alt  #1  -  Alt 

#3 

6 

650 

109 

Ease  -  Alt 

*2 

6 

360 

60 

Base  -  Alt 

#3 

8 

650 

82 

Eith  the  above  type  analysis,  one  coi  Id  readily 
observe  how  the  model  reacts  under  different  parameters. 
The  sensitivity  index  is  a  value  which  provides  a  weighting 
scheme  in  order  to  rate  the  effects  of  going  fron  one  set  of 
parameters  to  another.  The  sign  of  the  sensitivity  index 
indicates  how  the  model  responds.  A  positive  sign  indicates 
improvement  in  the  performance  of  the  landing  plan  when 
going  from  one  set  of  parameters  to  another.  A  negative 
sign  would  indicate  a  decrease  in  the  MOE,  thus  the  plan  is 
not  improving. 

The  sensitivity  analysis  was  conducted  utilizing  a 
set  of  base  conditions  from  which  a  parameter  was  changed  to 
observe  the  effect.  Table  XVI  lists  the  parameters  altered 
which  had  the  greatest  effect  within  each  different  set  of 
parameters.  For  instance,  within  the  set  of  altered  parame¬ 
ters  for  beach  size,  the  greatest  effect  occurred  when  the 
size  of  the  beach  was  increased  from  2  LVTs  to  4  LVTs  (465 
personnel  ashore  /  minute  load  time).  Thus,  tie  effect  of 
making  a  change  decreased  as  the  size  of  the  beach  increased 
beyond  a  4-LVT  sized  beach.  The  other  parameters  listed 
follow  similar  logic. 

The  parameters  in  Table  XVI  are  listed  in  order  of 
increasing  sensitivity  index.  This  indicates  :  he  relative 
impact  of  changing  a  parameter  by  one  unit  as  compared  to 
the  other  altered  parameters.  Thus,  the  least  sensitive 
parameter  is  the  charge  of  operational  deck  spots  from  114 
to  60  (11  personnel  ashore  /  operational  deck  spot).  The 
greatest  sensitive  parameter  is  found  by  increasing  the 
number  of  4-helo  sized  landing  zones  from  2  to  3  (890 

personnel  ashore  /  4-helo  sized  LZ)  . 
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TABLE  X7I 

Altered  Parameters  yielding  Greatest  Effect  in  BOE 


Change  in  Parameter 


Absolute  Vi  lue  of 
Sensitivity  Index 
( PA=Personnel  ashore) 


Op  deck  spots:  114  to  60 
Helo  launch  dis.:  10  to  20  NM 
Number  CH-46s:  72  to  54 

#  of  6-helo  sized  IZs:  2  to  3 
Time  factors:  6  to  10  min. 
Boat  launch  dis:  6  to  8  NM 
Number  beaches:  2  to  3 

LZ  size:  6  to  4  CH-46s 
Beach  size:  2  to  4  LVTs 

#  of  4-helo  sized  IZs:  2  to  3 


11  PA  /  dack  spot 

37  PA  /  N1 

38  PA  /  C3-46 
138  PA  /  LZ 
146  PA  /  min. 

180  PA  /  N1 
203  PA  /  beach 
333  PA  /  C.1-46 
465  PA  /  LVT 
890  PA  /  LZ 


VI.  MODEL  DOCUMENTATION 


A  key  tc  usability  of  any  computer  software  is  documen¬ 
tation.  [Hef.  10].  The  general  community  of  conputer  model 
developers  and  model  researchers  has  not  been  overly 
concerned  with  issues  of  model  documentation.  This  has 
severly  handicapped  the  utility  and  acceptence  o:  many  valid 
models,  and  also,  allowed  some  invalid  models  to  be  used. 
However,  a  subgroup  cf  computer  model  developers,  simulation 
modelers,  have  recognized  that  good  documentation  aids  in 
establishing  the  validity  of  simulation  models  and  in 
increasing  usage  rates  [Hef.  11:  p.  21] 

Since  a  model’s  developers  are  frequently  not  the 
models’s  ultimate  user,  concise  documentaion  is  essential 
for  effective  model  use.  An  article  by  Louis  Fried  recom¬ 
mends  that  model  documentation  should  at  a  minimum  provide 
the  user  and  analyst  views  [Hef.  12].  Proper  documentaion 
involves  the  use  of  four  types  of  manuals  which  provide 
information  for  four  different  classes  of  audiences.  These 
consist  cf  managers  (decision  makers),  users,  analysts,  and 
programmers.  Each  manual  should  include  some  common  topics 
such  as  a  table  of  contents  which  can  be  expanded  upon  or 
modified  according  tc  requirements  of  the  specific  model. 
Terms  of  each  manual  should  be  directed  towards  the  audience 
cf  interest.  The  following  will  briefly  summarize  the 
thrust  of  the  four  types  of  manuals. 

In  the  decision-maker’s  environment,  the  main  gcal  of  a 
manual  is  to  assist  managers  to  make  decisions.  To  accom¬ 
plish  this  end,  the  manual  must  describe  the  model  and  its 
applications  to  managers  (those  who  sponsored  the  mcdc  \  and 
those  who  may  be  interested  in  a  developed  model) .  The 
manual  should  provide  managers  with  sufficient  information 
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to  permit  them  to  accurately  assess  the  model  input  require¬ 
ments  (time,  money/  and  other  resources),  available  outputs, 
and  the  accuracy  and  precision  of  the  results.  Decision 
makers  can  use  this  manual  to  justify  the  employment  of  the 
model  and  in  evaluation  of  the  results.  [Ref.  13:  p.2] 

A  user  is  interested  mainly  in  deriving  results  from  a 
model  for  specific  applications  .  The  user’s  manual  must 
contain  sufficient  information  to  allow  the  users  tc  employ 
the  model  intelligently  and  accurately.  The  user,  although 
occasionally  unfamiliar  with  computer  techniques,  must  be 
informed  of  the  model’s  logical  structure,  general  simula¬ 
tion  approach,  and  any  assumptions  and  limitaions  affecting 
the  model’s  applicability .  It  is  not  necessary  to  have 
details  of  the  analysis  or  programming  beyond  the  prepara¬ 
tion  of  input  data  and  inter pretaion  of  model  results. 
[Ref.  13:  p.2] 

The  primary  purpose  of  a  programmer's  manual  is  for 
maintenance  and  modification  of  the  model.  Since  a 
programmer  must  correct  any  errors  discovered  luring  model 
usage  and  possibly  convert  the  model  for  use  on  another 
computer,  the  guidance  provided  by  the  manual  should  be  on 
two  levels.  The  micro  level  should  contain  details  of  what 
happens  in  each  routine  thus  providing  facts  about  what 
occurs  in  each  of  the  parts  of  the  model  on  an  individual 
basis.  The  macro  level  gives  an  overall  discussion  of  the 
processing  techniques  used  and  their  relationships.  Thus, 
it  provides  a  grasp  of  how  everything  is  tied  together  high¬ 
lighting  areas  vulnerable  to  change.  [Ref.  11:  j>.3] 

The  analysts  manual  is  the  source  document  for  an 
analyst  who  is  primarily  interested  in  the  analytical  tech¬ 
niques  and  algorithms  used  in  a  model.  This  manual  should 
explain  the  equations  used  in  the  model  and  the  methods  used 
for  verification  and  validation.  It  is  not  necessary  to 
include  details  such  as  input  and  output  formats  or  program¬ 
ming  details  involving  language  syntax.  [Ref.  13:  p.3] 
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I h €  decision  on  which  types  of  manuals  are  required 
depends  upon  the  individual  model  and  should  be  made  on  a 
case-by-case  basis.  Although  the  main  audience  for  the 
ship-to-shore  model  will  be  decision-makers  and  users,  there 
exists  the  need  for  the  programmer’s  manual  as  well.  The 
analyst’s  manual  would  not  offer  anything  different  from  the 


ether  three,  therefore  it  was  deemed  unnecessary.  The  docu¬ 
mentation  for  this  model  will  be  of  a  combined  format  with 
sections  directed  at  the  respective  audiences. 

Each  section  will  be  based  on  recommended  outlines  found 
in  [Eef.  13]  with  whatever  modifications  arc  necessary.  The 
sections  will  be  self-contained  and  pertain  to  each  of  the 
three  classes  of  audience  to  facilitate  ease  of  use.  The 
entire  model  documentation  ’s  found  in  appendices  A  through 
F  and  can  be  removed  as  a  separate  unit. 


VII.  CONCLUSIONS 


A.  SDHHARY 

Ihe  proper  construction  of  a  simulation  a  odel  is  a 
formidible  task.  It  involves  many  facets  other  than  ^he 
writing  of  code  which  is  supposed  to  reflect  a  real  life 
system.  There  are  numerous  activities  required  prior  to  the 
programming  stage  which  are  vastly  more  important. 
Definition  of  the  problem  is  probably  the  most  critical  step 
in  the  process  and  should  involve  a  great  deal  of  effort. 
All  too  often  a  piece  of  software  is  developed  in  a  vacuum 
without  regard  to  the  user  and  the  actual  problem  which  is 
to  be  solved.  This  tends  to  reduce  the  crediblility  of 
simulations  and  their  usage. 

This  thesis  attempted  to  demonstrate  the  proper  proce¬ 
dure  in  the  construction  of  a  model.  Although,  the  model 
was  already  in  existence,  the  procedure  outlined  in  chapter 
II  was  employed  as  much  as  possible.  In  some  respects  it 
was  more  difficult  to  start  with  a  nearly  finished  product, 
learn  the  code,  dissect  the  logic,  flow  chart  the  model,  and 
then  work  forward  through  the  model  building  steps. 
However,  the  primary  purpose  of  this  research  was  to 
complete  the  amphibious  sh ip-to-shore  model  for  use  on  a 
microcomputer.  To  accomplish  that  end  it  was  necessary  to 
start  with  the  existing  simulation. 

Based  on  the  material  presented  in  this  thesis,  it  is 
felt  by  the  author  that  SHIPSHOR  is  basically  a  good  repre¬ 
sentation  of  the  ship-to- shore  movement  of  an  amphibious 
landing.  From  the  results  of  the  validation  and  sensitivity 
analysis  and  in  conjunction  with  the  ajthor*s  experience,  it 
is  concluded  that  SHIPSHOR  has  a  great  deal  of  potential  and 
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is  a  viatic  decision  aid.  It  also  has  room  fa r  expansion 
and  continued  improvements.  The  next  section  will  address 
the  areas  for  future  enhancements  and  applicability. 

B.  FOTUBE  ENHABCEMEBTS 

As  discussed  in  the  beginning  of  this  thesis,  model 
development  is  a  continuous  process.  During  the  conduct  of 
research  and  analysis  of  SHIPSHOE,  many  areas  for  possible 
future  enhancements  were  realized.  Some  of  the  more  promi- 
nant  ones  are: 

•  More  sensitivity  analysis 

•  Improve  any  area  discovered  during  additional  sensi¬ 
tivity  analysis 

•  Elimination  of  some  of  the  limitations  of  the  model 
that  were  encountered 

•  Employ  stochastic  modelling  of  the  various  time  factors 
which  are  currently  expected  values 

•  Use  the  Basic  Compiler  to  improve  the  speed  of  execu¬ 
tion  of  the  model 

•  Add  a  stochastic  attrition  subroutine  option 

•  Automate  the  wave  and  serial  assignment  table  which 
forms  the  basis  for  the  landing  plan  file 

C.  FUTOBE  APPLICATIC1S 

The  main  reason  for  the  development  of  SHIPS  HOE  was  for 
use  in  a  study  which  was  to  assist  procurement  planning. 
There  was  nothing  specific  planned  beyond  that  objective. 
Currently,  most  U.  S.  models  are  designed  for  aiding  analysis 
involved  in  hardware  procurement  and  force  siza  determina¬ 
tion.  However,  there  is  a  broad  range  of  uses  for  simula¬ 
tions  which  have  been  overlooked  by  U.S.  military 
organizations. 
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The  Soviets  have  for  many  years  utilized  mol  els  as  part 
of  an  integrated  system  of  decision  aids  for  the  commander. 
SHI PS HOE  is  a  type  cf  model  which  could  lend  insight  into 
operational  planning  for  the  commander  and  his  staff.  Once 
the  model  has  gained  the  necessary  confidence  of  the  poten¬ 
tial  users,  it  could  be  used  to  help  a  commander  make  deci¬ 
sions  regarding  various  options  he  may  be  considering. 
Choices  such  as  the  number  of  LZs,  size  of  LZs,  number  of 
beaches,  number  of  helicopters,  etc.  could  be  run  through 
the  model  to  observe  the  effects  on  the  MOE  of  choice. 
Then,  based  on  those  results,  the  commander  cai  make  deci¬ 
sions  for  the  landing. 

Another  possible  application  is  related  to  predictive 
planning.  The  model  could  be  used  as  a  gauge  to  determine 
if  the  landing  is  proceeding  as  desired.  If  the  actual 
landing  is  not  progressing  according  to  the  predictions  of 
the  model,  the  commander  could  make  adjustments  to  get  back 
on  his  schedule.  Of  course,  any  use  of  this  no  del  will  be 
depend  on  its  reputation  and  credibility.  A  good  reputation 
will  only  be  formed  after  continued  validation  and 
modification. 
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APPENDIX  A 
GLOSSARY  OF  ACRONYMS 


Acronym 
CH-4  6: 


CH-53L: 


CH-53E: 

LARC: 

1CM-6: 

ICM-8: 


Definition 

A  twin-turbine  powered,  tandem  rotor  assault  trans¬ 
port  helicopter.  It  has  a  cruising  speed  of  120 
kts.  Under  ideal  conditions  it  has  a  max  payload 
of  4280  lbs.  The  max  number  of  troops  (the 
primary  paylcad)  it  carries  is  17. 

A  twin- turbine  powered,  single  main  rotor  assault 
cargo  helicopter.  It  has  a  cruising  speed  of  150 
kts.  Under  ideal  conditions  it  has  a  max  paylcad 
of  13761  lbs.  The  max  number  of  troops  it  carries 
is  57.  The  normal  payload  of  the  CH-53  is  cargo. 

Same  characteristics  as  the  CH-53D  with  the  excep¬ 
tion  of  the  payload.  The  max  payload  of  this 
aircraft  is  16000  lbs. 

A  wheeled  amphibious  vehicle.  It  can  ci rry  approx¬ 
imately  ten  troops.  The  primary  mission  of  this 
vehicle  is  for  use  on  the  beach  by  the  unit  that 
controls  the  beach  organization. 

landing  craft,  mechanized.  This  is  a  flat  bottomed 
boat  used  to  transport  vehicles  and  trcops  to 
shore.  The  €  designates  the  size  of  th»  craft. 

Same  type  of  landing  craft  as  the  Lc.M-6  with  the 
exception  of  the  size.  Ihe  8  indicates  that  it  is 
a  larger  craft  than  the  LCM-6.  It  can  carry  a  tank 
where  the  LCK-6  cannot. 


IC3:  landing  craft,  utility.  Carried  on  larger  amphib¬ 

ious  ships  although  it  is  a  self  contained  unit. 
This  is  the  largest  of  the  flat-bottomed  landing 
craft  used  to  discharge  troops  and  vehicles  ashore. 
It  can  carry  two  tanks. 

IHA:  Helicopter  assault  ship.  It  has  a  helicopter 

flight  deck  as  well  as  a  loading  dock  for  landing 
craft.  The  ship  actually  floods  its  well  deck  in 
order  to  launch  the  landing  craft.  It  displaces 
about  30000  tons  and  can  carry  2000  combat  troops. 

It  is  approximately  the  size  of  a  WWII  aircraft 

carrier. 

IPD:  Landing  ship  with  internal  loading  docks  for 

launching  landing  craft.  It  has  a  small  two  spot 
flight  deck  for  helicopter  operations,  however  does 
not  carry  its  own  aircraft.  It  displaces  17000 
tons  and  can  carry  900  troops. 

LPH:  Helicopter  assault  ship  without  loading  docks.  It 

has  extensive  medical  facilities.  Sin: e  it  has  no 
loading  docks,  it  can  not  carry  heavy  equipment. 
It  displaces  18000  tons  and  can  carry  2  000  trcops. 
The  first  of  the  class  was  actually  a  converted 
WWII  aircraft  carrier. 

LSD:  Landing  ship  with  internal  loading  docks  for 

landing  craft.  It  has  a  small  one  spot  flight  deck 
for  resupply.  It  displaces  about  1301  0  tons  and 
can  carry  350  troops. 

1ST:  Landing  ship,  tank.  Originally  designed  in  WWII, 

it  can  land  tanks  and  other  vehicles  directly  onto 
the  beach  through  a  bow  ramp.  It  has  a  small  cne 
spot  flight  deck  for  resupply.  LSTs  displace  8200 
tons  and  can  carry  about  350  troops. 
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IVT: 


[Ref 


Landing  vehicle,  tracked.  This  is  trulf  an  amphib¬ 
ious  landing  craft  that  has  tracks  for  movement  off 
the  beach.  The  current  model,  LVTP-7,  is  designed 
for  carrying  25  troops  from  the  amphiDious  ships 
into  land  combat.  It  is  completely  enclosed  to 
provide  all-around  armor  protection  from  shrapnel 
and  small  arms.  7 


7The  above  definintions  are  found 

.  7]. 


in  [  Ref.  1  ]  and 
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B.  I NTBCD  OCTIOR 

The  ship-to-shore  model  was  initiated  by  :  he  Analysis 
Support  Branch  of  the  Marine  Corps  Development  Center, 
Cuantico,  Va.  in  support  of  the  Amphibious  Lift  Study.  The 
original  model  was  delivered  in  an  unusable  form  which 
prompted  revision  by  the  author.  The  purpose  j  f  the  model 

is  to  simulate  the  movement  of  units  of  various  sizes  from 


amphibious  shipping  to  shore  via  surface  and  helicopter 
transportation. 

The  purpose  of  the  decision-maker's  manual  is  to  commu¬ 
nicate  to  managers  the  capabilities  of  the  ship- to-shore 
model.  To  attain  this,  the  contents  of  this  section  will 
describe  the  model,  its  development  and  experimentation,  and 
current  applications. 

C.  HCDE1  DESCHIPTIOH 

1 .  Capabilities 

The  model,  called  ShlPSHOR,  can  be  used  :o  determine 
build-up  of  troops  and  firepower  ashore  versus  time.  It  can 
also  be  used  to  compare  the  effects  of  changes  in  the  number 
and  size  of  landing  zones  (beaches),  numbers  of  carriers, 
numbers  cf  amphibious  ships,  distances  from  launch,  deck 
spot  utilization,  and  attrition.  These  capabilities  of  the 
model  are  concerned  with  utilization  in  the  planning  of 
operations  as  well  as  use  during  the  execution  of  the  plan. 
The  model  accomplishes  the  above  tasks  through  a  series  of 
subroutines  which  calculate  the  time  for  certain  events  to 
cccur,  then  executes  those  events  sequentially.  (See  Figure 
E.1)  A  detailed  explanation  of  the  subroutines  pan  be  found 
in  the  programmer's  section. 

The  ship-to-shore  model  can  be  utilized  in  studies 
involving  •  amphibious  operations  to  determine  optimum  carrier 
number,  launch  distance  mixtures,  deck  spot  utilization, 
etc.  The  model  could  also  be  employed  in  a  planning  mode  to 
predict  approximate  troop  build-up  ashore  given  the  unit, 
distance  of  launch,  number  of  carriers,  number  of  deck 
spots,  etc.  This  could  be  useful  in  planning  an  operation 
as  well  as  gauging  the  progress  of  the  landing. 
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2.  Input/Output  Classes 


Input  data  is  broken  down  into  three  categories. 
The  largest  group  of  data  is  found  in  the  landing  plan  file. 
The  file  requires  the  manual  construction  of  serials  and 
assault  waves  in  a  specific  format.  The  format  is  found  in 
the  ’help'  file  (Appendix  E)  and  the  user’s  manui  1  (Appendix 
B) .  An  example  of  tie  file  is  listed  in  Figure  B.2  . 


Figure  B.2  Example  of  Landing  Plan. 


Two  other  data  sources  are  needed  to  run  the  model. 
Cne  file  contains  parameter  values  which  are  not  subject  to 
change  and  is  called  T-1.DAT.  See  'help*  file  for  the 
format.  Figure  B. 3  is  a  listing  of  that  file.  A  helicopter 
time  factors  table  which  provides  expected  times  for  various 
evolutions  is  an  example  of  the  type  of  data  fjund  in  this 
file. 

The  last  data  source  is  found  within  the  program 
itself  as  either  a  line  of  code  or  as  an  interactive  guery. 
This  data  is  of  the  type  that  may  be  changed  easily  for 
various  types  of  analysis.  See  'he  .p*  file  and  Figure  E.4  . 


Figure  B. 3  Example  of  Data  File  T-1.DHT. 
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RUN  I 

»  OF  SERIAL  LINES  OF  DATA  FOR  SCHED, ON-CALL,  i  KOHSCHED  HELD  THEN  SURFACE: S9, 23, 0, 60, 0, 0 
Setup  19907 

»  OF  SH1FS  0Y  TYPE  (LHA, LFH,LSD,LPD, LST) : 5, 7, 1 , 9, 1 
1ST  TURNAROUND  SCHED  HELD  NAVE: 11 
I  OF  5EACHES  AND  I  OF  LANDING  ZONES:!., 7 

HELD  LAUNCH  DISTANCE,  BOAf  LAUNCH  DISTANCE,  AND  SHDRE  TO  LZ  DISTANCED, 2, 5 
LHOUR  AND  HHOUR: 01 7000, 0 

»  OF  NAVES  IN  ORDER  SCHED,  ON-CALL,  NONSCHED  HELD  THEN  SURFACE: 23, 10,0, 19, 0, 0 
»  OF  HELDS  THAT  CAN  OCCUPY  AN  LZ  AT  ANY  ONE  TINE  BY  TYPE  (CH<6,  CH53D,  CH53E,  UH1N) : 10,3, 3, 16 
»  OF  CARRIERS  BY  TYPE  (CHN6, CH53D, CH53E, UH1N,LVT,LCK6, LCN3,LCU,LST, LARC) :  156, 30, 32, 0,2!?, 52, 3942, 23,0,  12 
I  DF  SURFACE  CRAFT  THAT  CAN  OCCUPY  A  BEACH  AT  ANY  ONE  TINE  BY  TYPE  (LVT, LCM6, LCM3, LCU.LST, LARC > : 6, 5, 4, 2, 1,4 


INPUT  DATA  FILE  NANE:LFE.DAT 
OUTPUT  FILE  NAME: TESTI 


Figure  B.4  Example  of  Interactive/Line  Input  Data. 


The  output  of  the  model  can  be  modified  to  reflect 
the  on-going  utilization.  For  exmaple,  if  the  HOE  is 
build-up  ashore,  the  output  could  be  personnel  and  firepower 
ashore  at  given  times.  This  data  could  be  printed  or  sent 
to  a  file  for  use  in  a  graphics  program  to  plot  the 
build-up.  See  Figure  B.5  . 


Total  tine  tc  land  a  particular  sized  force  could  be 
obtained  for  several  different  sets  of  input  data.  Then  a 
graph  could  be  made  comparing  the  various  sets  of  inputs  to 
obtain  sensitivity  analysis  for  the  desired  parameters.  For 
details  cf  the  coding  requirements  see  the  user's  manual. 

3.  Assumptions  and  lie itations 

Assumptions  which  affect  the  results  of  the  model 
are  as  fellows: 


L 


'■f 

V 
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•  Helicopter  and  beat  time  factors  are  expected 
values  as  opposed  to  stochastic  vala  es.  This 
assumption  is  considered  reasonable  since  the 
factors  are  used  many  times.  This  lends  itself  to 
the  use  of  averages  according  to  the  central  limit 
theorem. 

•  There  is  an  attrition  rate  which  is  predetermined 
-and  set  as  a  constant.  This  designates  mechanical 

and/or  combat  attrition.  The  value  used  is  based 
on  experience  and  not  on  any  factual  data  therefore 
it  is  considered  an  assumption. 

•  All  time  calculations  are  assumed  to  be  rounded  to 
the  nearest  minute. 

•  Environmental  effects  are  assumed  to  negligible 
which  implies  load  limitations  of  the  helicopters 
and  landing  craft  are  based  on  an  averaj  e  day. 

limitations  of  the  model  depend  highly  on  the  model 
purpose.  The  following  are  the  major  limitations  : 

•  In  order  to  run  the  surface  portion  of  the  model, 
there  must  be  a  sufficient  number  of  carriers  to 
land  the  scheduled  and  on-call  waves. 

•  Each  helicopter  wave  must  use  the  si  me  type  of 
helicopter.  Since  the  model  computes  all  activi¬ 
ties  and  times  based  on  a  particular  wave,  the 
speed  of  the  aircraft  must  be  the  same. 

•  Once  the  leads  are  assigned  to  a  wave  and  heli¬ 
copter  type,  they  can  not  be  switched  during  the 
simulation.  Therefore,  unlike  the  flexibility  in 
reality  of  switching  loads  to  available  craft,  the 
model  does  net  have  that  capability. 

•  Waves  and  serials  are  not  designated  to  a  partic¬ 
ular  ship.  Therefore,  the  simulation  looks  at  the 
total  number  of  deck/well  spots  for  the  entire 
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amphibious  force  instead  of  those  individual  ships 
tc  which  craft  are  assigned  to  load. 

•  The  current  edition  is  limited  to  a  maximum  of  four 
landing  zones  or  beaches.  This  can  be  modified  by 
making  a  change  in  the  coding. 

D.  DEVELOPMENT  AND  EXPERIH ENTATION 

1 .  levelo ument  History 

The  shi  p-to-shore  model  is  currently  the  first 
revised  edition.  The  original  was  developed  by  General 
Research  Company  for  use  in  the  Amphibious  Lift  Factors 
Study  at  the  Development  Center  Quantico#  Va.  The  devel¬ 
opers  turned  over  the  product  in  an  unusable  form  with  a 
paucity  of  documentation.  The  current  form  was  revised  by 
the  author.  It  involved  variable  identification  and  then 
construction  of  a  detailed  flow  chart  to  understand  the 
logic  of  the  model.  Enhancements  included  interactive 
input#  output  to  a  file#  a  detailed  documentation  section#  a 
'help*  file#  and  conversion  to  IBM  disk  operating  system  for 
an  IIM  PC. 

2.  Verification  and  Validation 

The  validation  conducted  on  the  model  consisted  of 
two  phases.  The  initial  phase  involved  the  testing  of  a 
simplified  landing  plan  which  could  be  checked  by  hand 
calculations.  The  results  showed  that  the  model  performed 
the  basic  computations  as  it  was  designed. 

The  second  phase  of  the  validation  utilized  the 
results  of  another#  large  scale  simulation.  Since  histor¬ 
ical  data  did  not  exist#  it  was  necessary  tc  compare 
SHIPSHOR  against  another  simulation  (CAAM)  to  verify  the 
output.  CAAM  was  used  in  a  study  conducted  by  the  Marine 
Corps  in  1983  (see  [Ref.  9 ]  )  .  The  method  for  comparison 
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was  a  graphical  technique  in  which  the  output  from  each 
model  vas  used.  The  parameters  for  the  simualation  were 
similar  so  that  a  direct  comparison  could  be  made.  A  ten 
percent  confidence  interval  was  placed  around  the  output 
from  CAAM  to  provide  a  feel  for  the  similarities. 

The  results  of  the  above  procedure  produced  outputs 
which  were  very  close.  There  is  no  way  to  place  a  numerical 
value  on  the  comparisons  that  would  make  any  sense.  Thus, 
the  method  employed  for  phase  two  of  the  validation  is  more 
subjective  than  objective.  However,  the  confidence  in 
SHIPSHOE,  based  on  the  validation  conducted,  should  be  as 
high  as  that  of  CAAM . 

Finally,  sensitivity  analysis  was  conducted  on 
SHIPSHOE  using  a  variety  of  parameter  sets  to  observe  how 
the  mcdel  behaved.  The  results  were  portrayed  graphically 
which  provided  a  feel  for  the  performance  of  th»  simulation 
when  conducted  under  different  conditions.  This  analysis 
demonstrates  which  parameters  affect  the  model  greatly  and 
which  have  a  lesser  influence  on  the  results. 

Ihe  details  of  validation  and  sensitivity  analysis 
can  be  fcund  in  Chapter  V  of  this  thesis.  The  analysis  was 
not,  by  any  stretch  of  the  imagination,  all  encompassing. 
That  would  require  a  considerable  amount  of  study  due  to  the 
large  number  of  parameter  combinations  that  might  be  tested. 
However,  the  analysis  that  was  conducted  can  be  repeated 
under  many  conditions  of  interest  to  give  further  enlighten¬ 
ment  to  the  user  of  the  model. 

£.  COBBEHT  AID  ADDITIONAL  APPLICATIONS 
1 .  Current  Ose 

Current  interest  in  the  ship-to-shore  »odel  exists 
in  the  plans  and  operations  section  of  HQMC  for  amphibious 
lift  planning.  The  model  can  provide  a  desk-top  decision 
aid  fcr  immediate  ’what  if’  type  questions. 
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2 •  Addition al  Arglicat ions 

The  model  could  have  application  during  an  amphib¬ 
ious  landing  to  determine  the  progress  of  the  landing.  This 
would  also  provide  historical  data  for  continued  validation 
and  refinement  of  the  model.  Additionally,  utilization  in 
the  planning  phase  of  an  operation  could  provide  a  commander 
with  estimates  of  the  time  involved  to  land  his  forces  using 
a  particular  scheme  of  maneuver.  He  could  investigate  the 
effect  of  changing  various  input  parameters  within  the  model 
to  aid  in  his  decision  process.  For  instance  given  his 
force  size,  he  may  want  to  determine  the  minimum  number  of 
helicopter  landing  zones  which  would  give  him  an  acceptable 
build-up  ashore. 

Automation  of  the  construction  of  the  wave  and 
serial  assignment  tables  would  reduce  the  large  amount  of 
time  reguired  for  input  data  preparation.  This  would  result 
in  a  self-contained  ship-to-shore  model  with  realistic 
combat  uses. 

T.  BEFEEEICES 


See  M.S.  thesis  by  Major  S.  a.  Ritacco,  USMC,  1984,  N?S 
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B.  INTRODUCTION 

The  ship-to-shore  model  was  initiated  by  : he  Analysis 
Support  Branch  of  the  Marine  Corps  Development  Center, 
C-uantico,  Va.  in  support  of  the  Amphibious  Lift  Study.  The 


original  model  was  delivered  in  an  unusable  form  which 
prompted  revision  by  the  author.  The  purpose  if  the  model 
is  to  simulate  the  movement  of  units  of  various  sizes  from 
amphibious  shipping  to  shore  via  surface  and  helicopter 
transportation. 

The  purpose  of  the  user's  section  is  to  provide  nonpro- 
gamming  users  of  the  ship- to-shore  model  with  the  informa¬ 
tion  necessary  to  use  the  model  effectively.  To  accomplish 
this  end  the  following  section  will  describe  the  model,  give 
details  for  the  model  input  data,  explain  the  model  output 
data,  and  give  some  sample  runs  and  examples. 

C.  DESCBIPTION  OF  TEE  MODEL 
1 .  Cvervie  w 

a.  Model  Identification 

The  model  documented  in  this  manui  1  is  named 
SHIPSHOB.  It  is  designed  to  simulate  the  movement  of  men 
and  equipment  via  helicopters  and  surface  craft  from  amphib¬ 
ious  shipping  to  shore  during  an  amphibious  landing. 
SHIPSHOR  is  written  in  Microsoft  Basic  and  designed  to  be 
used  cn  an  IBM  PC.  However,  it  can  be  modified  to  run  cn  any 
pc  which  can  be  converted  to  run  Microsoft  Basic  formatted 
for  MEOS.  Currently  SHIPSHOR  has  no  relation  to  any  ether 
models. 


b.  Physical  System  Highlights 

The  major  activities  during  a  si  ip-to-shore 
movement  for  either  helicopter-borne  or  surface-borne  units 
are  listed  in  Figure  C.  1 

The  first  activity  is  the  loading  paase.  This 
takes  place  aboard  the  amphibious  shipping  located  in  its 
designated  sea  echelon  area.  It  consists  of  the  loading  of 
troops  and/or  equipment  aboard  helicopters  or  surface  craft. 
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The  launching  phase  follows  loading  i  nd  involves 
the  launch  and  rendezvous  of  the  carriers  in  order  to 
proceed  to  shore  as  an  entire  wave.  Once  the  wave  is 
constituted  it  travels  via  prescribed  routes  to  its 
destination. 

Approach,  landing,  and  off-loading  transpires 
next  at  the  appropriate  destination.  This  phase  of  the 
amphibious  landing  is  where  combat  attrition  is  most  likely 
to  occur.  Both  landing  craft  and  helicopters  are  most  vuln¬ 
erable  in  a  static  situation  while  troops  and  equipment 
cff-lcad. 

The  return  transit  takes  place  for  all  carriers 
except  LVT’s  (amphibious  tracked  vehicles)  which  proceed 
inland.  Upon  return  to  amphibious  shipping  the  transports 
must  wait  for  an  opening  on  the  flight  deck  or  the  well-deck 
to  land  (dock)  .  The  vehicles  will  then  refuel  and  prepare 
for  their  next  trip  ashore.  The  cycle  is  then  repeated 
until  all  necessary  assault  waves  are  ashore. 

Each  class  of  wave  (scheduled,  on-call,  and 
nonschedcled)  will  execute  all  the  events  listed  above.  The 
order  in  which  each  class  of  wave  will  commence  the  cycle  is 
normally  (1)  scheduled,  (2)  on-call,  and  then  (2)  nonsche- 
duled.  However,  on-call  and  nonscheduled  waves  can  inter¬ 
rupt  the  sequence  depending  on  the  situation  ashore. 

c.  Model  Applicability 

The  model,  called  SHIPSHOR,  can  be  used  to 
determine  build-up  cf  troops  and  firepower  ashore  versus 
time.  It  can  also  be  used  to  compare  various  changes  in  the 
number  and  size  of  landing  zones  (beaches) ,  numbers  of 
carriers,  numbers  of  amphibious  ships,  distances  from 
launch,  deck  spot  utilization,  and  attrition.  These  capa¬ 
bilities  of  the  model  are  concerned  with  the  utilization  in 
the  planning  of  operations  as  well  as  use  during  the 
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execution  of  the  plan.  The  model  accomplishes  the  above 
tasks  through  a  series  of  subroutines  which  calculate  the 
time  for  certain  events  to  occur,  then  it  executes  those 
events  sequentially.  (See  Figure  C.  2)  A  detailed  explana¬ 
tion  of  the  subroutines  can  be  found  in  the  programmer’s 
section. 

The  ship-to-shore  model  can  be  atilized  in 
studies  involving  amphibious  operations  to  determine  optimum 
carrier  number,  launch  distance  mixtures,  deck  spot  utiliza¬ 
tion,  etc.  The  model  could  also  be  employed  in  a  planning 
mode  to  predict  approximate  troop  build-up  ashoce  given  the 
unit,  distance  of  launch,  number  of  carriers,  number  of  deck 
spots,  etc.  This  could  be  utilized  in  the  planning  phase  of 
an  operation  to  provide  a  commander  with  estimates  of  the 
time  involved  to  land  his  forces  using  a  particular  scheme 
of  maneuver.  He  could  investigate  the  effect  of  changing 
various  input  parameters  within  the  model  to  aid  in  his 
decision  process.  For  instance  given  his  force  size,  he  may- 
want  to  determine  the  minimum  number  of  helicopter  landing 
zones  which  would  give  him  an  acceptable  build-up  ashore. 

d.  Input  and  Output 

There  are  three  basic  categories  of  data  input 
for  SHIPSHOK.  The  landing  plan  data  file  is  the  largest  and 
most  important.  It  contains  the  wave  and  serial,  data  which 
are  such  items  as  personnel,  wave  number,  destination,  fire¬ 
power  score,  type  of  carrier,  class  of  the  wave,  etc.  The 
second  data  file  is  called  T-1.dat  and  is  made  up  of  all  the 
parameter  data  which  is  not  likely  to  change  jften.  The 
third  source  of  input  data  is  either  interactive  input  or 
line  input  (to  chance  parameters  within  cede).  This  data 
consists  of  parameters  which  will  be  changed  often  during 
sensitivity  analysis. 
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The  output  of  the  model  can  be  aodified  to 
reflect  the  on-going  utilization.  For  exmaple,  if  the  MOE  is 
build-up  ashore,  the  output  could  be  personnel  and  firepower 
ashore  at  given  times.  This  data  could  be  printed  or  sent 
to  a  file  for  use  in  a  graphics  program  to  plot  the 
build-up.  See  Figure  C.3  . 


Then  a  graph  could  le  made  comparing  the  various  sets  of 
inputs  to  cttain  sensitivity  analysis  for  the  desired  param¬ 
eters.  For  details  of  the  coding  requirements ,  see  the 
programmer's  or  user's  section. 

2 •  Methodology 

a.  Physical  System  Details 

The  following  gives  more  details  for  the  phys¬ 
ical  system  being  modelled  and  is  an  elaboration  of  Physical 
System  Highlights  section: 

*  Loading  phase:  The  loading  phase  can  only  take 

place  if  there  are  sufficient  carriers  available 
to  load  the  entire  wave.  Also,  there  must  be  the 
requisite  number  of  deck  (well-decki  -  spots  to 
accomodate  the  carriers  which  are  to  load.  Once 
those  conditions  have  been  met  the  first  activity 
can  be  completed. 

*  launch  phase:  No  additional  details. 

*  Unloading  chase:  The  conduct  of  this  pi  ase  depends 
upon  two  restrictions.  The  beach  or  landing  zone 
must  be  large  enough  to  accomodate  the  current 
wave.  If  the  preceeding  wave  is  still  present, 
the  landing  area  may  not  be  large  enough  which 
will  cause  a  delay.  Also,  the  current  wave  may  be 
too  large  by  itself  which  means  onlf  a  limited 
number  of  boats  or  helicopters  can  off-load  while 
the  other  vehicles  await  an  opening. 

*  Eeturn  phase:  No  additional  details. 

*  Arrive  back  phase:  This  phase  can  :e  completed 
when  there  is  a  sufficient  number  of  deck  spots 
(well  or  flight)  to  accomodate  the  returning 
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vehicles.  Once  the  wave  of  vehicles  has  landed 
the  cycle  can  repeat  itself. 

t.  Model  Logic  and  Data  Flow 

The  model  utilizes  35  subroutines  t)  attempt  to 
translate  reality  intc  mathematical  computations.  A  diagram 
of  the  model  in  very  general  terms  is  found  in  Figure  C.2 
The  first  subroutine  in  the  program  reads  the  dita  from  the 
wave  and  serial  file  and  the  parameter  file.  Also  the  vari¬ 
able  data  is  entered  within  the  first  section  of  the 
program.  The  second  subroutine  initializes  the  arrays  and 
clocks  to  be  used  by  the  timing  and  activity  subroutines, 
based  on  the  information  found  the  wave  data  file.  These 
subroutines  essentially  complete  set-up  and  initialization 
of  the  model. 

Once  the  model  enters  the  EXEC  subroutine  it 
continues  the  time/event  procedure  until  all  waves  have  been 
landed.  The  EXEC  subroutine  is  the  control  routine  in  which 
all  waves  eventually  pass.  Based  on  the  class  of  the  wave 
(air  or  surface)  and  the  current  activity  (load,  launch, 
unload,  return,  or  arrive  back  ship),  the  EXEC  subroutine 
will  send  the  wave  in  guestion  to  the  proper  subroutine  for 
manipulation. 

Prior  to  going  to  one  of  the  activity  subrou¬ 
tines,  the  program  gueries  whether  certain  flags  have  been 
set.  If  they  have  been  set,  one  of  the  following  routines 
could  be  called.  Five  are  for  helicopter  waves  and  four  are 
for  surface  waves.  They  are: 

•  RESTART (helc)  /  BESTART ( surface)  :  Restart  timing 
for  waves  that  have  been  stalled  by  the  lack  of 
deck  spots  (helo  or  surface)  .  Since  in  reality 
there  are  net  enough  spots  available  to  load  all 
of  the  assault  carriers  at  one  time,  subseguent 
waves  may  be  delayed.  This  routine  restarts 
timing  after  such  a  delay. 


•  5I0CH  (helo)  /  STOCI  (surf  ace)  :  These  subroutines 

start  the  on-call  waves  to  load  after  the  final 
scheduled  wave  has  begun  to  load. 

•  HAL1SH  (helc)  /  HALTS! ( surf)  :  Stall  remaining 

scheduled  waves  when  one  or  more  on-call  waves 
interrupt  the  scheduled  category.  As  in  reality, 
on-call  waves  can  break  in  when  called  for.  The 
model  allows  flags  to  be  set  to  simulate  this 
process. 

•  SISH(helo)  /  STSL  (surface) :  Start  scheduled  waves 

that  have  been  stalled  due  to  on-call  waves  inter¬ 
rupting  the  sequence.  More  than  one  on-call  wave 
can  interrupt  at  different  times  so  the 

HALTSH  (L)/STSL  (L)  subroutines  can  be  called  more 
than  once. 

•  HCKLD  (helo) :  Reevaluates  deck  spot  employment  if 
the  current  wave  does  not  occupy  all  spots  avail¬ 
able.  It  calls  flSPOT  which  calculates  the  number 
of  spots  to  be  used  in  the  current  wave. 

One  last  subroutine  will  be  called  prior  to  the 
activity  subroutines.  This  is  the  MSOHT  routine  which  acts 
as  the  master  sort  routine.  It  takes  the  lowest  time  from 
six  other  time/event  sort  routines  and  that  becomes  the  next 
event  which  is  processed  by  the  appropriate  activity 
subroutine. 

There  are  three  time  sort  routines  common  to  the 
helicopter  activities  and  three  time  sort  routines  common  to 
the  surface  activities.  They  all  sort  through  the  waves 
identifying  the  wave  with  the  earliest  time  for  the  next 
event.  That  wave  is  placed  on  the  top  of  the  gueue  from 
which  MSCET  then  picks  the  lowest  time  out  of  t  he  six  time 
sort  routines.  Listed  below  are  the  sort  subroutines: 

•  HSSORT :  Scheduled  helicopter  wave  sort  routine. 


•  HCS05T :  On-call  helicopter  wave  sort  routine. 

•  HNSORT :  Nonscheduled  helicopter  wave  sort  routine. 

•  ISSORT t  Scheduled  surface  wave  sort  routine. 

•  ICSORT ;  On-call  surface  wave  sort  routine. 

•  INSORT:  Nonscheduled  surface  wave  sort  routine. 

The  activity  subroutines  process  each  wave  based 
on  its  class,  activity  code,  and  category  (scheduled, 
on-call,  cr  nonscheduled).  There  are  five  major  activity 
subroutines  for  each  class  (air  or  surface).  Each  activity 
subroutine  calls  other  secondary  routines  and  the  appro¬ 
priate  time  sort  routine  as  determined  by  the  wa /  e  category. 
Cnee  the  wave  has  completed  an  activity  subroutine,  it 
returns  to  the  EXEC  subroutine  and  the  cycle  begins  again. 
Thus,  each  wave  will  eventually  cycle  through,  five 
subroutines. 

The  following  is  a  summary  of  the  activity 
subroutire  and  their  supporting  routines:  • 

•  HRID:  The  purpose  is  to  load  (or  attenpt  to  load) 
a  helicopter  wave  from  available  flight  deck  spots 
of  the  shipping.  Loading  will  not  be  initiated  if 

(1)  no  deck  spots  are  currently  available  or  if 

(2)  insufficient  helicopters  of  the  proper  type  to 
carry  the  serials  are  present  at  the  time.  HELD 
calls  the  appropriate  time  sort  routine  (HSSORT, 
HCSORT,  or  HNSORT)  and  subroutine  SPOTS.  The 
SPOTS  routine  identifies  whether  all  the  deck 
spots  are  curently  being  employed  for  loading.  A 
flag  is  set  to  indicate  whether  deck  spots  are 
available  cr  not. 

•  HINCH :  This  routine  launches  a  helicopter  wave 
from  ships  and  determines  the  time  it  will  arrive 
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at  the  landing  zone(s).  It  determines  the  number 
of  deck  spcts  made  available  to  subsequent  waves 
and  restores  those  spots.  Also  it  reevaluates  the 
leading  time  for  a  wave  being  loaded  which  had 
employed  all  of  the  remaining  deck  spots.  HLNCH 
calls  the  appropriate  time  sort  routine  (HSSORT, 
HCSORT,  or  ENSORT)  and  HLODCK  and  RESTART.  HIODCK 
sets  up  signals  that  will  initiate  a  reevaluation 
of  the  deck  spot  employment  in  the  event  that  the 
current  wave  was  not  employing  the  last  available 
deck  spot.  Those  signals  will  trigger  the  use  of 
HCKLD  which  is  called  from  EXEC.  If  the  current 
wave  was  occupying  the  remaining  decc  spots,  a 
flag  is  set  to  call  RESTART  from  EXEC.  RESTART 
allows  subsequent  waves  to  employ  deck  spots  which 
will  be  vacated  by  the  current  wave. 

HDNLD :  HO  SID  determines  whether  or  not  larding 
zones  are  still  occupied  by  previous  waves  and  if 
sc  delays  the  landing  of  the  current  wave  until 
the  pertinent  zones  are  free  to  use.  Also  it 
calculates  the  length  of  time  necessary  for  this 
wave  to  unload  (constrained  by  the  size  of  the 
landing  zone).  HONID  calls  the  appropriate  time 
sort  routine  (HSSORT,  HCSORT,  or  HNSORT) . 

HRTN:  The  purpose  is  to  print  a  running  total  of 
the  personnel  ashore  and  the  firepower  ashore. 
Also  HRTN  calculates  the  time  that  the  wave  will 
return  to  the  area  of  the  shipping  and  hence  be 
available  for  formation  of  subsequent  waves.  It 
calls  the  appropriate  time  sort  routine  (HSSORT, 
HCSORT,  or  HNSORT). 


•  HAEIV:  HAEIV  returns  helicopters  to  the  helicopter 
pools  for  use  in  forming  subsequent  waves  after 
degrading  the  number  of  helicopters  to  reflect 
maintenance  losses.  It  also  initiates  the  leading 
process  for  subsequent  waves.  HARIV  calls  the 
appropriate  time  sort  routine  (HSSORT,  HCSORT,  or 
HNSORT) . 

The  surface  activity  subroutines  operate  in 
basically  the  same  manner  (the  first  letter  :  or  surface 
activities  is  B  instead  of  H)  .  Since  the  following  routines 
are  sc  similar  to  the  helicopter  routines,  only  the  differ¬ 
ences  will  be  pointed  out. 

•  HELD:  The  purpose  is  to  load  the  landing  craft  in 
a  similar  fashion  to  the  HELD  for  helicopters.  It 
calls  the  appropriate  time  sort  routines  (1SS0RT, 
ICSORT,  or  INSORT)  and  the  subroutine  WEID2K. 
NELDEK  calculates  the  well  decks  to  be  used  by 
landing  craft  of  each  wave  and  indicates  whether 
there  are  sufficient  openings  or  not. 

•  EINCH:  This  routine  launches  the  surface  waves 
from  the  ships.  It  calls  the  appropriate  time 
sert  routine  (LSSORT,  ICSORT,  or  INSORT). 

•  BDNID :  BOSID  determines  if  the  beach  is  open  for 
landing  and  offloads  the  wave  if  it  Is  possible. 
It  calls  the  appropriate  time  sort  routine 
(ISSORT,  ICSORT,  or  INSORT). 

•  ERIN:  BRTN  prints  the  running  total  of  personnel 
ashore  and  the  firepower  ashore.  Also,  it  returns 
the  boats  tc  the  ships.  It  calls  the  appropriate 
time  sort  routine  (ISSORT,  ICSORT,  or  L  NSCRT)  . 

•  BARIV;  This  routine  returns  the  boats  to  the  boat 

pools  for  subsequent  use.  It  calls  the 
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appropriate  time  sort  subroutine  (LSSOi  T,  LCSORT, 
or  LNSORT)  . 

Once  each  wave  has  cycled  through  the  rive  heli¬ 
copter  activities  or  the  five  surface  activities,  they  are 
assigned  a  very  large  value  in  their  time  array.  This 
prevents  them  from  recycling.  The  program  will  end  when  the 
last  nonscheduled  surface  wave  has  gone  through  all  activi¬ 
ties.  At  that  point,  all  personnel  in  the  wave  data  file 
will  te  ashore. 

3.  assumptions  and  Limitations 
a.  System  Related 

assumptions  which  affect  the  resuLts  of  the 
model  are  as  follows: 

•  Helicopter  and  boat  time  factors  are  expected 
values  as  opposed  to  stochastic  values.  This 
assumption  is  considered  reasonable  since  the 
factors  are  used  many  times.  This  lends  itself  to 
the  use  of  averages  according  to  the  central  limit 
theorem. 

•  There  is  an  attrition  rate  which  is  predetermined 
and  set  as  a  constant.  This  designates  mechanical 
and/or  combat  attrition.  The  value  used  is  based 
on  experience  and  not  on  any  factual  data  therefore 
it  is  considered  an  assumption. 

'  •  All  time  calculations  are  assumed  to  be  rounded  to 
the  nearest  minute. 

•  Environmental  effects  are  assumed  to  negligible 
which  implies  load  limitations  of  the  helicopters 
and  landing  craft  are  based  on  an  average  day. 

Limitations  of  the  model  depend  highly  on  the 
model  purpose.  The  following  are  the  major  limitations: 

I 
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•  Id  order  to  run  the  surface  portion  o;  the  model, 
there  must  be  a  sufficient  number  of  carriers  to 
land  the  scheduled  and  on-call  waves. 

•  Each  helicopter  wave  must  use  the  same  type  of 
helicopter.  Since  the  model  computes  all  activi¬ 
ties  and  times  based  on  a  particular  wave,  the 
speed  of  the  aircraft  must  be  the  same. 

•  Once  the  leads  are  assigned  to  a  wave  and  heli¬ 
copter  type,  they  can  not  be  switched  during  the 
simulation.  Therefore,  unlike  the  flexibility  in 
reality  of  switching  loads  to  available  craft,  the 
model  does  not  have  that  capability. 

•  Waves  and  serials  are  not  designated  to  a  partic¬ 
ular  ship.  Therefore,  the  simulation  looks  at  the 
total  number  of  deck/well  spots  for  the  entire 
amphibious  force  instead  of  those  individual  ships 
to  which  craft  are  assigned  to  load. 

•  There  is  a  max  of  four  landing  mones  or  beaches 

•  that  can  be  used  for  any  landing.  This  can  be 
modified  if  more  are  desired  by  making  a  change  in 
the  code. 

b.  Model  Parameters 

The  model  parameters  must  agroe  with  each  other. 
For  example,  the  parameter  TA  (number-  scheduled  helo  waves) 
must  reflect  the  number  of  waves  found  in  the  serial  data 
input  file.  If  a  parameter  value  is  changed,  :  aution  must 
be  exercised  to  ensure  other  values  are  not  affected  in  an 
adverse  manner.  This  becomes  very  apparent  when  the  landing 
plan  data  file  is  changed.  That  change  affects  the  number 
of  wave  parameters,  the  number  of  serial  parameters,  and  a 
host  cf  ether  values.  The  'help'  file  gives  guidance  along 
these  lines. 
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c.  Output  Limitations 


As  with  any  model,  results  from  ths  simulation 
must  he  used  judiciously.  The  model  output  is  only  as  good 
as  its  validation  and  verification.  Even  then,  no  model  is 
perfect  and  results  must  be  used  cautiously.  SHIPSHOR  must 
undergo  a  rigorous  validation  and  subseguent  modifications 
in  a  series  of  actual  amphibious  operations  before  its 
predictive  capabilities  are  verified  as  reliable. 

a.  Restrictions  on  Model  Use 

As  with  any  model  the  current  model  should  be 
considered  as  an  approximation  of  a  complex  process  which 
contains  many  variables.  It  is  not  designed  to  produce 
results  cn  which  policy  can  be  based.  It  is,  however,  to  be 
used  to  give  an  estimate  where  only  a  bad  guess  would  exist 
otherwise. 

E.  BCDEI  IHPOT  DATA 

1 .  General  Description 

Input  data  is  broken  down  into  three  categories. 
The  largest  group  of  data  is  found  in  the  landinj  plan  file. 
The  file  requires  the  manual  construction  of  serials  and 
assault  waves  in  a  specific  format.  The  format  is  found  in 
the  'help'  file  and  the  user's  manual.  An  example  of  this 
file  is  listed  in  Figure  C. 4  . 

Two  other  data  sources  are  needed  to  rua  the  model. 
Cne  file  contains  parameter  values  which  are  not  subject  to 
change  and  is  called  I-1.dat.  See  'help'  file  for  the 
format.  Figure  C. 5  is  a  listing  of  the  file.  A  helicopter 
time  factors  table  which  provides  expected  times  for  various 
evolutions  is  an  example  of  the  type  of  data  found  in  this 
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IS,  317, 129,33,35, 1979. A, A, 8, I, R- 1,6 15 
IS, 34B , 128, 33, 35, 1B7B, A, A, B, I, R-2, 61 5 
IS,  378, 128,33,35, 1B79. A, A, B, I, R-3, 615 
2S,  317, 128,33,35, 1B7S, A, A, 8, I,R-1,615 
2S,  348, 128,33,35, 1878, A, A, 9, I , R-2, 615 
2S , 378 , 128,33,35, 1878, A, A, 8, I,R-3,615 

35. 317. 230. 66. 70.3560,  A, B.9, I,R-1, 1230 
3S,  348, 230, 66, 70, 3560, A, B, 9,  I, R-2,  1230 

35. 383. 290. 66. 70. 3560,  A, B, 9, I , R-3, 1230 

45 . 1021 .50.948. 5476. 37414,  A, B, 9, I,R-1,360 

45 . 1025. 50. 948.5476.37414,  A, B, 8, I , R-2, 360 


4S , 1030, 50 , 948 


5S, 
5S , 
5S, 
68, 
63 , 


29. 112. 42, 

59. 112. 42, 

39. 112.42, 

29. 112.42, 

59. 112.42, 


,5476,37414, A, B, 9, I , R-3 

34.941,  A, A, 7, I ,R-1 ,651 

34. 841 ,  A, A, 7, I , R-2, 651 

34. 941,  A. A, 7. I, R-3, 651 

34.841,  A, A, 7, I,R-1,651 

34. 841,  A, A. 7. I, R-2. 651 


360 


6S ,  3 


89, 1 12, 


75, 1021,62, 


42, 34, 941, A. A, 7, I , R-3 
56 1 , 3276 , 230 15, A, A, 2, 


.651 

I ,  R- 1 , 225 


Figure  C.4  Example  of  landing  Plan  Data  File. 


C'TYPE  T-l.DAT 

9.7. 4. 9. 9. 7. 2. 9. 9. 7. 2. 9. 7. 4. 4. 7. 7. 4. 2. 7. 7. 4. 2. 7. 1.1. 1.1. 1.1. 1.1.  1.1.  1,1, 2,  1.1. 2. 
1 .  1 ,  1 ,  1 .  1 .  1.  1 ,  1 .  1 .  1,  1 ,  1 . 0,0.0.  0,0,  0,0,0 

0,0.0.  1.  1 ,4. 4. 4.  4,  1 ,  1  .  1,3.8.  10.  4.  4.  4,  4.  4.  4.  1 .  1  ,  1 
120. 100. 100,0,9, 12, 11,20.20 

1 , 1 . 1 , 1. 1 . 1 . 4. 10. 10. 10, 10. 10. 1 , 1 . 1 , 1 . 1 . 1 .0, 10, 10, 10. 10, 10,0,3.3.3.3.3. 1.2. 2.2. 2. 

2. 1.  1.  1,  1 .  1 , 1.  1.  1 ,  1. 1 .  1.  1 

c: 


Figure  C.5  Example  of  Data  File  T-l.DAT. 

The  last  data  source  is  found  within  the  program 
itself  as  either  a  line  of  code  or  as  an  interactive  query. 
This  data  is  of  the  type  that  may  be  changed  easily  for 
various  types  of  analysis.  See  ’help’  file  and  Figure  C. 6  . 
The  data  sources  are  summarized  in  Table  XVII  . 
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RUN 

I  OF  SERIAL  LINES  DF  DATA  FDR  SCHED, ON-CALL,  4  NONSCHEB  HELD  THEN  SURFACE: 69, 23, 0, 60, 0, 0 

Sstup  urn 

I  DF  SHIPS  SY  TYPE  (LHA , LPH, LSD, LPD, LST) : 5, 7, 1,9,1 
1ST  TURNARDUND  SCHED  HELD  NAVE: 1 4 
I  OF  SEACHES  AND  «  DF  LANDING  ZDNES:4.,7 

HELD  LAUNCH  DISTANCE,  BDAT  LAUNCH  DISTANCE,  AND  SHORE  TD  LZ  DISTANCE:50,2,5 
LHDUR  AND  HHDUR: 01 7000 , 0 

!t  DF  NAVES  IN  ORDER  SCHED,  ON-CALL,  NDNSCHED  HELD  THEN  SURFACED, 10, 0,19, 0,0 

:»  DF  HELOS  THAT  CAN  OCCUPY  AN  LZ  AT  ANY  DNE  TINE  8Y  TYPE  (CH46,  CH53D,  CH53E,  UH1N) : 10, 3,3, 16 

I  DF  CARRIERS  SY  TYPE  (CH46,CH53D,CH53E,UH1N,LVT,LCNA,LCH8,LCU, LST, LARChlSA, 30, 32, 0,249, 52, 3942, 23,0,  12 

|!  DF  SURFACE  CRAFT  THAT  CAN  OCCUPY  A  BEACH  AT  ANY  DNE  TINE  BY  TYPE  (LVT, LCM6, LCNB, LCU, LST, LfiRC ) : 6, 5, 4,2, 1, 4 


INPUT  DATA  FILE  NANE:LPE.DAT 
OUTPUT  FILE  NANE:TESTI 


Figure  C.6  Example  of  Interactive/Line  Input  Data. 


TABLE  I VII 

Summary 

of  Input  Data 

Sources 

lisis 

jQata  Media 

Landing  plan 

LPE.DAT 

Disk  FL  le 

Fixed  parameters 

T-1.DAT 

Disk  File 

Interactive 

— 

Ter aina 1 

Prdgran  lines 

Listing 

2 •  Detailed  Descriptions 

a.  landing  Flan  Data  File 

The  landing  plan  file  contains  tie  wave  and 
serial  data  which  is  processed  by  the  model.  It  has  type  of 
carriers,  number  of  personnel,  wave  number,  destination, 
etc.  fcr  each  serial  going  ashore.  Its  purpose  is  to 
provide  the  model  with  the  troop  unit,  equipment,  and  trans¬ 
portation  information  which  will  be  'moved  ashore'  by  the 
simulation. 

Each  line  in  the  data  file  contains  twelve 
pieces  of  information  which  the  model  requires.  These  are 
explained  as  pe.it  cf  an  example  listed  in  figure  C.7 
Figure  C.7  is  a  part  of  a  'help'  file  which  located  on  the 
same  disk  as  the  main  program  and  is  for  use  in  constructing 
the  data  file.  A  copy  of  the  'help'  file  is  located  in 
Appendix  E. 

b.  Fixed  Parameter  Data  File  T-1.DAT 

This  data  file  contains  parameter  values  which 
are  not  subject  to  constant  change.  The  three  major  tables 
of  this  type  are  the  helicopter  time  factors,  boat  time 
factors,  and  operational  deck  spot  tables.  The  first  two 
provide  the  expected  times  for  various  evolutions  to  utilize 
and- the  last  gives  the  deck  spots  under  various  conditions. 
Tables  XVIII,  XIX,  and  XX  list  the  data  which  ace  read  from 
T-1.DAT.  The  purpose  of  this  file  is  to  read  data  into 
various  arrays  within  the  program  which  will  be  used  to 
compute  event  times. 

The  first  two  lines  of  the  T-1.DAT  file  refer  to 
Table  XX  The  data  is  listed  in  the  file  row  by  row  from  the 
table.  Thus,  the  first  twelve  values  come  from  row  one  of 
the  table.  The  next  line  contains  data  from  table  XVIII  It 
is  listed  in  the  same  manner  as  Table  XX  except  the  first 


120 


type  land  the 


THE  FOLLOWING  IS  AN  EXAMPLE  OF  THE  DATA  INPUT  FOR  ALL  WAVE 
INFORMATION,  THE  FIRST  LINE  OF  LETTERS  AND  NUMBERS  IS  AN  ACTUAL  LINE  OF 
DATA  FOUND  IN  THE  LPE.DAT  FILE,  THE  CORRESPONDING  LETTERS  WILL  EXPLAIN 
EACH  COLUMN  OF  DATA. 


1S»317»128»33j35»1878>A»A»8»I»R-1»615 

t  »  I  *  »  »  •»»»»  * 

♦  »  »  *  »  »  »»»»»  • 

A  f  B  »  C  »D  *E  >  F  »G»H»I»J»  K  »  L 


a:  THE  NUMBER  INDICATES  THE  WAVE  *  AND  THE  LETTER  REFERS  TO  THE 

CLASS  OF  THE  WAVE  (S=SCHEDULED»  0=0N-CALLi  N=NON-SCHED) .MORE 
THAN  ONE  LINE  OF  DATA  (CALLED  A  SERIAL)  CAN  BE  OF  THE  SAME  WAVE 
NUMBER.  EACH  SERIAL  RUNS  SEQUENTIALLY  FROM  1  TO  THE  LAST  SERIAL 
THE  CLASS. 

b:  reserved  for  future  use. 

c:  number  of  personnel  in  particular  serial  of  a  particular  wave 

d-f:  reserved  for  future  use. 

g:  mode  of  transportation.  <a=helo»  S=SURFACE) 

H!  CATEGORIES  OF  CARRIERS,  a  THROUGH  K  CORRESPOND  TO  1-11.  (1=CH46E 
2=CH53D»  3=CH53E,  4=UHINr  5=LVT»  6=LCM-6,  7=LCM-8»  B=LCU,  9=LST, 
10=LARC»  U=LCAC),  CARRIER  TYPE  MUST  BE  THE  SAME  FOR  THE  SAME 
WAVE. 

11  NUMBER  OF  CARRIERS  IN  THE  SERIAL 

J1  TYPE  LOAD  <I  =  INTERNAL*  E=EXTERi'AL,  COMBINATION) 

K 1  DESTINATION’.  (B-l  THROUGH  B-4  REFERS  TO  BEACHES  #1  THROUGH  *4 
AND  R-l  THROUGH  R-4  REFERS  TO  LANDING  ZONES  *1  THROUGH  *4) 

LI  WEAPONS  UNIT  VALUE  (UUV-FIREPOUER  SCORE) 

END  OF  FILE 

R»  T=0.01/0,09  16155159 


Figure  C.7  Fornat  for  the  Landing  Plan  File. 

four  values  cone  frou  the  first  row  of  the  table.  Line  four 
lists  three  helicopter  speeds  then  six  landing  craft  speeds. 
The  vehicles  for  which  these  speeds  are  listed  are:  CH-53, 
CH-IR,  UH1N,  LVT#  LCM-6,  LCH-8,  LCD,  LST,  and  LAEC.  The 
last  two  lines  of  the  file  contain  data  fron  Table  XIX  They 
are  also  listed  by  row.  (see  Figure  C.  5  ) 
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TAB  IB  XVIII 

Helicopter  Tine  fa 

ctors  in 

Minutes 

Type  of  ioad 

Rej[g  wave  operation 

I&ternal 

Ext er nal 

Coa  bin  ed 

(1) 

Land  in  zone 

0 

0 

0 

1  (2) 

Disecbark  troops  (cargo) 

1 

1 

4 

P) 

Takeoff/rendez vous  fro  LZ 

4 

4 

4 

(*») 

Haneuver/la nd  ship 

1 

1 

1 

(5) 

Refuel/enbark  troops  (cargo) 

5 

8 

10 

(6) 

Takecff/rendezvous  fro  ship 

4 

4 

4 

(7) 

Maneuver/ land  in  1Z 

4 

4 

4 

(0) 

Safety  clearance  tiae 

1 

1 

1 

c.  Interactive  Data 


Although  this  source  is  not  a  file,  it  is  the 
final  seans  used  to  assign  values  to  the  reaaining  vari¬ 
ables.  Once  the  first  two  files  are  prepared,  the  sodel  is 
loaded  into  the  coaputer  and  initiated.  The  prograa  will 
guery  the  user  to  input  data  for  the  paraaeters  which  are 
aost  likely  to  change  during  any  type  of  analysis.  An 
alternative  is  to  change  the  code  within  the  prograa  itself 
where  scae  of  these  values  are  found.  The  paraaeters  that 
are  reguested  by  the  interactive  input  are  listed  in  the 
Table  XXI  . 


TABLE  XII 

Boat  Tine  Pactors  in  Minutes 


*ais  SEecation 

(1)  Land  at  beach  lot  LZ ) 

(2)  Diseabark  troopu/load 

(3)  Rendezvous  for  return 

(1)  Deck  tine  to  ship  (well  deck) 

(5)  flefuel/eibark  troops/load 

(6)  Circle  and  rendezvous 

(7)  Land  at  beach 

(8)  Safety  clearance  tiae 


Boat  t vpe 


in 

lCH-5 

i£«r§ 

LCD 

ill 

PARC 

LCAC 

i 

1 

1 

1 

1 

1 

1 

1 

to 

10 

10 

10 

10 

15 

1 

i 

1 

1 

i 

0 

0 

10 

10 

10 

10 

10 

10 

0 

5 

5 

5 

5 

5 

15 

1 

2 

2 

2 

2 

2 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

3*  £ata  Collection  and  Maintenance 
a.  Data  Sources 

Two  documents  must  be  completed  prior  to 
construction  of  the  landing  plan  files.  These  documents  are 
the  Helicopter  Have  and  Serial  Assignment  Table  and  the 
landing  Craft  and  Amphibious  Assignment  Table  (  [Bef.  10: 
p.29]  ).  They  are  normally  prepared  during  the  planning 
phase  of  the  amphibious  operation.  Once  these  documents  are 
completed,  the  necessary  data  exists  for  compilation  of  the 
landing  plan  file. 

The  preparation  of  the  preceeding  t* o  documents 
is  a  very  large,  time  consuming  endeavor.  It  is  extremely 
complex  and  its  intricacy  goes  up  exponentially  as  the  size 
of  the  unit.  Unfortunately,  an  automated  system  for  this 
task  does  not  exist  at  this  time. 
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TABLE 

XX 

Operational  Deck 

Spots 

I nternal 

External 

Combii  ation 

Loading 

Loading 

Loading 

Shii  tyrpe 

A 

B  C 

D 

A 

B 

C  D 

A  B 

C 

D 

LHA  (#  1) 

9 

7  4 

9 

9 

7 

2  9 

9  7 

2 

9 

1PE  (#2) 

7 

4  4 

7 

7 

4 

2  7 

7  4 

2 

7 

LSD  (#3) 

1 

1  1 

1 

1 

1 

1  1 

1  1 

1 

1 

LPE  (  #4) 

2 

1  1 

2 

1 

1 

1  1 

1  1 

1 

1 

LST  (#5) 

1 

1  1 

1 

0 

0 

0  0 

0  0 

0 

0 

Helo  types: 

A=CH46E 

B= 

CH53D 

C=CH53E 

D=UI  IN 

Sources  for  the  remaining  data  file  and  interac¬ 
tive  parameters  depend  on  the  make-up  of  the  fleet,  number 
of  helicopters  and  landing  craft  available,  distance  to 
launch,  etc.  Fixed  values  such  as  the  helicopter  time 
factors  are  expected  values  found  in  Marine  Corps 
Publications  such  as  reference  7  dealing  with  amphibious 
operations. 

b.  Updating  Procedures 

Each  time  a  new  landing  plan  file  is  used,  all 
the  parameters  pertaining  to  the  number  of  waves,  the  number 
of  serials,  the  number  of  landing  craft  for  scheduled  and 
on-call  waves,  the  name  of  the  landing  ptan  file,  etc.  must 
be  changed  to  conform  to  the  new  data.  If  this  is  not 
accomplished  an  error  will  occur  identifying  the  line  in  the 
code  where  an  inconsistency  was  found.  Most  of  those  values 
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TABLE  XXI 

Interactive  Parameters 


Order  of 
Bequest 

Parameter  Name 

Definition 

i 

TA 

Sched  helo  seriaL  # 

2 

CA 

On-call  helo  seri  al  # 

3 

NA 

Nonsched  helo  serial  # 

a 

TS 

Sched  surf  seriaL  # 

5 

CS 

On-call  surf  seri  al  # 

6 

MS 

Nonsched  surf  serial  # 

7-12 

NOS  (I) 

Ship  type  (five  types) 

13 

TRNHl 

1st  turnaround  wi  ve 

14 

NNB 

Number  of  beaches 

15 

NLZ 

Number  of  LZs 

16 

A  SATIS 

Helo  launch  disti  nee 

17 

LOOT IS 

LVT  launch  distance 

18 

LZDIS 

Shore  to  LZ  distance 

19 

HSNAVE 

Sched  wave  # 

20 

HCNA7E 

On-call  wave  t 

21 

HNRA7E 

Nonsched  wave  # 

22 

LSNA7J5- 

Sched  wave  # 

23 

LCNA7E 

On-call  wave  # 

24 

LNWAVE 

Nonsched  wave  # 

25-28 

HGF  (I) 

9  helos  max  in  Li 
by  type  (4  types) 

29-38 

AT  (I) 

1  carriers  by  tyo  e 
(10  types) 

39-44 

LGF  (I) 

1  boats  max  at  bsach 
by  type  (6  types) 

are  found  in  the  interactive  mode  which  helps  to  prevent 
those  types  of  errors. 


Other  parameters  can  be  changed  for  sensitivity 
analysis  purposes.  Since  there  is  such  a  larj  e  number  of 
parameters,  all  possible  combinations  have  not  been  experi¬ 
mented  with.  Therefore,  there  exists  the  chance  that  a 
certain  combination  cf  parameters  will  produce  an  error. 

E.  HCDE1  OUTPUT  DAT! 

1 •  General  Description 

The  output  of  the  model  can  assume  a  variety  of 
forms  depending  upon  the  immediate  purpose  of  :  he  run.  A 
detailed  print  out  cf  each  wave  and  its  status  at  various 
times  can  be  obtained  by  changing  the  PBINT  command  to 
IPRINT  in  line  3692  cf  the  program  as  explained  in  Appendix 
C.  Currently  this  output  is  suppressed  to  expedite  the  time 
to  run  the  simulation. 

Another  form  of  output  is  the  output  data  file.  The 
current  edition  cf  the  model  sends  the  time,  total  personnel 
ashore,  and  total  firepower  ashore  to  a  file  for  use  in 
graphic  presentations.  The  program  will  prompt  the  user  to 
input  that  data  file  name  during  the  intializa;  ion  of  the 
model. 

2 •  fet ail ed  Description 

a.  Printed  Cutput  Data 

The  following  terms  used  in  TabL e  C.8  are 

defined: 

•  Save:  The  wave  number  currently  being  processed 

•  Activity:  1=load,  2=launch,  3=unload,  4=return, 

5=arrive.  Describes  the  landing  activity  currently 
being  conducted. 

•  Bode:  1=helc,  2=sur£ace.  Describes  whether  the  current 
wave  is  helo  or  surface. 
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•  Hin:  The  time  of  the  current  activity. 

•  FASH:  Personnel  ashore. 

•  FIEFWE :  Firepower  ashore  and  percent  firepo# er  ashore. 
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1 

Figure  C.8  Exaaple  of  Output. 


t.  Output  Data  File 

The  name  of  the  output  file  is  deternined  by  the 
user  when  the  prompt  gueries  for  output  data  file  name.  The 
data  which  is  sent  to  the  output  file  consists  of  three 
columns.  The  first  column  is  the  time  in  minutes  of  the 
off-loading  ashore  cf  a  particular  wave.  The  second  and 
third  columns  contain  the  total  personnel  ashore  and  the 
total  firepower  ashore  for  the  time  listed  in  the  first 
column.  An  example  is  found  in  figure  C.9 
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Figure  C.9  Example  of  Output  File. 


SAUPIE  EON 

See  Chapter  7  of  thesis. 


VARIABLE  NAHES  AND  LOCATIONS 


See  Section  F  of  Appendix  E. 
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B.  INTRODUCTION 

The  ship-to-shore  model  was  initiated  by  :  he  Analysis 
Support  Branch  of  the  Marine  Corps  Development  Center, 
Quantico,  Va.  in  support  of  the  Amphibious  Lift  Study.  The 
original  model  was  delivered  in  an  unusable  form  which 
prompted  revision  by  the  author.  The  purpose  jf  the  model 
is  to  simulate  the  movement  of  units  of  various  sizes  from 
amphibious  shipping  to  shore  via  surface  and  helicopter 
transportation. 
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The  purpose  of  this  manual  is  to  provide  programmer 
personnel  of  SHIPSHOE  with  the  information  necessary  to 
effectively  maintain  and  modify  the  model.  Although  the 
flow  diagram  of  the  entire  model  exists,  due  to  its  bulk  it 
was  net  included  in  this  thesis.  However,  the  author  will 
maintain  a  copy  of  the  flow  diagram  if  one  has  na ed  of  it. 

C.  HCDEI  SPECIFICATICH 

The  following  provides  a  short  summary  of  the  model 
specifications . 

1 .  Purpose 

The  purpose  of  SHIP  SHOE  is  to  simulate  ai  amphibious 
ship-to-shore  movement. 

2 .  Host  System 

IEM  Personnel  computer 

3.  Processing  requirements 

IBM  PC  with  €4K  BAH  and  a  printer 

4 .  language 

Microsoft  Basic 

5 .  Capabilities 

•  Observe  build-up  of  personnel  and  firepower  ashore 

•  Sensitivity  analysis  for  operational  plannii  g 

•  Time  sequence  of  each  landing  activity  for  each  wave 

•  Predict  troop  build-up  to  gauge  progress  of  landing 

6  •  limitations 

•  Hust  have  sufficient  surface  carriers  to  laa  d  scheduled 
and  on-call  waves 
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•  Each  helo  wave  must  use  the  smae  type  of  heL icopter 

•  loads  assigned  tc  a  particular  wave  cannot  be  switched 

D.  MCDEI  DESCRIPTIOB 

1 .  Cverview 

The  model  documented  in  this  manual.  is  named 
SHIPSHOR.  It  is  designed  to  simulate  the  movement  of  men 
and  eguipment  via  helicopters  and  surface  craft  from  amphib¬ 
ious  shipping  to  shore  during  an  amphibious  landing. 
SHIPSHOR  is  written  in  Microsoft  Basic  and  designed  to  be 
used  on  an  IBM  PC.  However,  it  can  be  modified  t3  run  on  any 
pc  which  can  be  converted  to  run  Microsoft  Basic  formatted 
for  MDOS.  Currently  SHIPSHOR  has  no  relation  to  any  ether 
models. 

2.  General  logic  flow 

The  model  utilizes  35  subroutines  to  attempt  to 
translate  reality  into  mathematical  computations.  A  diagram 
of  the  model  in  very  general  terms  is  found  in  Figure  D. 1 
The  first  subroutine  in  the  program  reads  the  data  from  the 
wave  and  serial  file  and  the  parameter  file.  Also  the  vari¬ 
able  data  is  entered  within  the  first  section  of  the 
program.  The  second  subroutine  initializes  the  arrays  and 
clocks  to  be  used  by  the  timing  and  activity  subroutines, 
based  on  the  information  found  the  wave  data  file.  These 
subroutines  essentially  complete  set-up  and  initialization 
of  the  model. 

Cnee  the  model  enters  the  EXEC  subroutine  it 
continues  the  time/event  procedure  until  all  waves  have  been 
landed.  The  EXEC  subroutine  is  the  control  routine  in  which 
all  waves  eventually  pass.  Based  on  the  class  of  the  wave 
(air  or  surface)  and  the  current  activity  (lord,  launch, 
unload,  return,  or  arrive  back  ship),  the  EXEC  subroutine 
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will  send  the  wave  in  question  to  the  proper  sud routine  for 
manipulation. 

Prior  to  going  to  one  of  the  activity  5  ubroutines, 
the  program  queries  whether  certain  flags  have  been  set.  If 
they  have  been  set,  one  of  nine  routines  could  be  called, 
five  are  for  helicopter  waves  and  four  are  for  surface 
waves.  Ihey  are  shown  in  Figure  D.  1  .  The  next  section 

will  describe  each  routine  found  in  the  model  in  greater 

detail. 

E.  E1SCBIPTI0N  OF  HCUTINES 

The  following  routines  are  listed  in  order  o:  appearance 
in  the  program.  When  two  routines  appear  separated  by  a 

slash,  the  first  routine  refers  to  helicopters  and  the 
second  refers  to  surface.  The  reason  for  this  format  is  due 
to  the  similarity  in  the  logic  of  the  routines.  Flow 

diagrams  of  all  the  routines  are  held  by  the  author  if 
needed. 

1 .  Routine  Name :  SETUP 

\  a.  Purpose 

The  initial  portion  of  this  routine  ceads  values 
from  the  T-1.DAT  file,  interactive  input,  and  input  found 
within  the  code  itself.  These  values  are  used  'to  dimension 
arrays,  used  for  landing  plan  data  and  set  up  initial  condi¬ 
tions  for  the  simulation.  SETUP  then  opens  the  landing  plan 
file  for  input  of  the  values  contained  in  that  file.  The 
basic  language  reads  each  line  from  the  file  as  a  character 
string,  proceeds  to  strip  off  individual  pieces ,  converts 
those  pieces  into  numerical  values,  and  then  assigns  them  to 
arrays  for  later  use.  This  procedure  continues  until  the 
end  of  the  data  file  is  reached  at  which  time  the  file  is 
closed. 
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Another  purpose  for  this  section  is  ;  o  normalize 
1HOOE,  HHOOE,  and  CHCOE  by  setting  the  lowest  time  tc  zero. 
It  then  adjusts  the  other  times  to  reflect  their  original 
differences  between  the  variables. 

b.  Type  function 

This  is  a  routine  that  is  part  :>  f  the  main 
program.  It  is  not  a  subroutine  or  other  type  of  function. 

c.  Calling  routines 

None 

d.  Called  routines 

Calls  INITIAL. 

e.  Files  created  or  used 

This  routine  uses  two  files  for  inpat:  T-1.EAT 
and  the  landing  plan  file.  It  also  creates  a  file  for 
output  of  the  time,  number  of  personnel  ashore,  and  fire¬ 
power  ashore  which  is  used  for  graphical  presentation. 

f.  Flow  diagram 

Available  but  not  contained  in  this  manual. 

2.  Boutine  Name :  INITIAL 

a.  Purpose 

This  routine  has  several  functions  to  perform 
within  the  model  framework. 

•  It  initializes  the  time  sort  arrays  which  are  used  to 
track  the  waves  as  they  progress  through  the  various 
activities. 

•  It  initializes  the  deck  spots  and  well  de:  k  spots  for 
use  by  the  load  activity. 
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It  computes  times  for  landing  craft  to  launch  from  the 
ships. 

It  ensures  sufficient  landing  craft  for  scheduled  and 
cn-call  waves  are  available  in  the  landing  plan  file. 

It  initializes  the  following  arrays:  SSH,  SCH,  SNA, 
SSI,  SCL,  and  SNA.  These  arrays  store  the  serial 
number  and  its  corresponding  wave  number  for  each  line 
cf  input  from  the  landing  plan  data  file.  They  are 
used  throughout  the  program  to  keep  track  of  all  the 
serials  in  a  particular  wave. 

b.  Type  function 

This  function  is  a  subroutine. 

c.  Calling  routines 

INITIAL  is  called  by  SETUP  routine. 

d.  Called  routines 

INITIAL  calls  HSSOBT,  HCSORT,  LSSORT,  LCSOBT. 

e.  Files  created  or  used 

None 

f.  Flow  diagram 

Available  but  not  contained  in  this  manual. 

.  Routine  Name :  Wave  time  s<2£i  routines 
HSSORT :  Scheduled  helicopter  waves  time  sort 
HCSCET :  On-call  helicopter  waves  time  sort 
ENSCRT :  Nonscheduled  helicopter  time  sort 
1SSCRT:  Scheduled  surface  waves  time  sort 
ICSCRT :  On-call  surface  waves  time  sort 


INSCRT:  Non  scheduled  surface  waves  time  sort 


a.  Purpose 

The  purpose  of  the  time  sort  routine  is  to  find 
the  event  with  the  lowest  time  amongst  all  waves  within  a 
particular  class  (e.  g.  HSSORT  will  search  through  the  sched¬ 
uled  helicopter  waves  ’looking1  for  the  lowest  time  for  the 
next  event).  Once  that  wave  has  been  identified,  the  infor¬ 
mation  pertaining  to  its  wave  number,  classification,  time 
to  next  event,  load  factor,  mode,  etc.  will  be  transferred 
to  the  MCIOCK  array  whicn  stores  the  same  information  from 
the  five  other  time  sort  routines.  The  MCLOCK  array  is  then 
used  by  the  MSORT  routine  . 

b.  Type  function 
Subroutine 

c.  Calling  routines 

Each  activity  subroutine  calls  thi  time  sort 
routine  according  to  the  class  of  wave  that  it  is  processing 
at  the  time.  For  instance,  HRID  (helicopter  load  routine),, 
will  call  HSSORT,  HCSCRT,  and  HNSORT  depending  an  the  class 
of  wave  being  processed. 

d.  Called  routines 
None 

e.  Files  created  or  used 
None 

f.  Flow  diagram 

Available  but  not  contained  in  this  aanual. 
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4.  Soutine  Name:  EXEC 

a.  Purpose 

EXEC  is  the  central  control  routi  ne  of  the 
model.  It  controls  the  flow  of  all  waves  by  calling  the 
proper  routine  according  to  the  class  and  mode  of  the  wave 
which  has  the  lowest  time  for  the  next  .event.  EXEC  first 
checks  whether  certain  flags  have  been  set  or  not.  These 
flags  cr  signals  are  concerned  with  special  conditions  such 
as  lack  cf  sufficient  helicopters,  lack  of  deck  spots,  etc. 
If  the  flags  have  been  set,  the  proper  subroutine  will  be 
called  to  make  adjustments  in  the  time  accordingly.  The 
subroutine  MSORT  is  then  called  to  provide  the  wave  which 
has  the  lowest  time  for  the  next  event.  EXEC  then  routes 
that  wave  to  the  activity  subroutine  for  processing. 

b.  Type  function 

This  function  is  considered  the  main  program. 

c.  Calling  routines 

None 

d.  Called  routines 

EXEC  calls  or  can  call  the  following  routines: 
HCKLD,  STNSH/STNSL ,  STOCH/STOCI,  STSH/STSL,  R ESTART/EESTART, 
MSORT,  HR1D/BR1D,  B1NCK/BLNCH,  HEJNLD/BUNLD,  HRTN/ERTN, 
HARIV/1 ARIV . 

e.  Files  created  or  used 

None 

f.  Flow  diagram 

Available  but  not  contained  in  this  manual. 
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5.  Bo u tine  Name:  HELD/  ERLD 

a.  Purpose 

This  routine  is  designed  to  load  (o:  attempt  to 
load)  a  helicopter  (surface)  wave  from  available  deck  (well) 
spots  on  the  ships.  loading  will  not  occur  if  (1)  there  are 
no  deck  (well)  spots  or  (2)  there  insufficient  carriers  of 
the  proper  type  to  carry  the  current  wave. 

t.  Type  function 

Subroutine 

c.  Calling  icutines 

These  routines  are  called  from  EXEC. 

d.  Called  routines 

HR1D  calls  HSSORT,  HCSORT,  HNSORT,  SPOTS  and 
ERLD  calls  1SSORT,  LCSOST,  LNSORT,  WELDER. 

e.  Files  created  or  used 

None 

f.  Narrative 

This  subroutine  is  called  from  EXEC  when  MSCRT 
indicates  that  the  current  wave  scheduled  for  loading  has 
the  lowest  time  amongst  all  other  waves.  The  subroutine 
first  checks  the  class  of  the  wave  to  be  loaded  and  then  the 
deck  spot  availability.  If  spots  are  not  available  the  wave 
must  wait  for  reactivation  by  RESTART  (BESTART)  as  soon  as 
the  spots  become  available.  If  the  spots  are  available,  the 
routine  compares  the  number  of  carriers  and  type  that  are 
needed  with  the  number  cf  that  type  in  the  carrier  pools. 
If  the  number  of  carriers  is  insufficient  to  lift  the  wave, 
the  wave  sort  array  is  advanced  by  10  minutes  to  await 
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return  of  sufficient  carriers.  If  either  insufficiency  case 
occurs,  the  appropriate  wave  time  sort  routine  is  called  to 
determine  the  next  wave  for  processing. 

For  the  case  of  enough  carriers  an d  spots  to 
load  the  current  wave,  the  wave  parmeters  are  set  for  ready 
to  load  and  launch.  SPOTS  is  called  to  compute  the  time 
interval  needed  to  load,  DLTIME.  Upon  return  to  HELD  (ERID) 
the  time  interval  to  load  is  added  to  the  current  time, 
HOUR,  and  the  results  are  placed  in  the  appropriate  wave 
time  sort  array.  This  information  is  then  sent  through  the 
appropriate  wave  time  sort  routine  to  determine  the  lowest 
time  for  the  next  event. 

g.  Flow  diagram 

See  Figure  D.2  . 

6.  Routine  Name:  SPOTS /KEIDEK 

a.  Purpose 

This  pair  of  routines  determines  the  helo  (well) 
deck  spots  that  are  available  for  use  by  the  wave  being 
processed  by  HRLD  (BRIE).  If  the  spots  are  available  a  flag 
is  set  and  control  is  returned  to  the  calling  routine 
(HRID/ERID) .  If  spots  are  available,  the  time  necessary  to 
load  CITINE,  is  computed  then  control  is  returned  to  the 
calling  routine.  DITIME  is  a  global  variable  and  available 
throughout  the  prograi. 

t.  Type  function 
Subroutine 

c.  Calling  routines 

SPOTS/WEIEEK  is  called  by  HRLD/ERLD. 
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Figure  D.2  Flow  Diagram  of  HR1D/BRLD. 
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d.  Called  routines 
None 

e.  Files  created  or  used 
None 

f.  Flow  diagram 

Available  but  not  contained  in  this  a  anual. 

7.  Routine  Name:  HINCH/B1NCH 

a.  Purpose 

These  routines  launch  a  wave  from  ships  and  determines  the 
time  it  will  arrive  at  the  landing  site.  It  determines  the 
number  of  deck  {helc  or  surface)  spots  made  available  to 
subseguent  waves  and  restores  those  spots.  Also  it  reevalu¬ 
ates  the  loading  time  for  a  wave  being  loaded  which  had 
emplcyed  all  of  the  remaining  deck  spots. 

b.  Type  function 
Subroutine 

c.  Calling  routines 

These  routines  are  called  from  EXEC. 

d.  Called  routines 

HLNCH  calls  H5S0RT,  HCSORT,  HNSORT,  HICDCK  and 
BENCH  calls  LSSORT,  1CS0RT,  LNSCRT. 

e.  Files  created  or  used 


None 


f.  Narrative 


These  routines  are  called  from  EX2  C  when  the 
time  for  launching  the  current  wave  is  lowest  among  all 
ether  classes  of  waves  processed  by  MSORT.  The  subroutine 
first  checks  the  class  of  the  wave  and  then  gets  the  first 
line  cf  serials  in  that  wave  to  be  carried.  The  number  and 
type  of  carrier  is  obtained  from  the  wave  time  sort  array. 
A  launch  signal  is  placed  in  the  serial  lines  for  this  wave 
and  the  load  factor  is  extracted  from  the  wave  time  sort 
array.  The  time  interval,  DT,  from  launch  to  arrival  at  the 
12  is  computed  using  the  various  input  data  such  as  launch 
distance,  carrier  speed,  load  time,  etc. 

Before  setting  the  appropriate  wavs  time  sort 
array  (helos  only)  tc  the  arrival  time  at  the  LZ,  a  check  is 
made  to  see  if  all  the  deck  spots  are  in  use  by  the  current 
wave.  If  so,  then  the  launching  of  the  current  wave  would 
make  available  a  certain  number  of  spots  for  the  next  wave. 
If  not  all  the  spots  are  in  use,  the  routine  H10DCK  is 
called  to  reevaluate  the  helicopter  deck  spot  employment  to 
determine  how  many  spots  will  be  available  after  launch  of 
the  current  wave. 

Finally,  the  time  to  load  is  determined  by 
adding  DT  tc  the  current  time,  HOUR,  and  setting  the  proper 
code  for  launch.  A  call  to  the  appropriate  wave  time  sort 
routine  follows  these  computations.  Any  deck  spots  used  by 
the  currnet  wave  are  then  restored  upon  launch. 

g.  Flow  diagram 

See  Figure  D.3  . 
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HLNCH 

(Helo  launch  routine) 


Xheck  ciassX 

Launch  either  on-call  or 

/  C.  of  wave.  \  * 

nonacneduied  wave  In 

\  / - * 

alallar  manner 

Get  ftrat  line,  M.  of  aerial  data  to  Be 
carried  By  wave:  M“SSH(V,2) 


Get  type  (TYP)  t  I  of  heloa  In  wave  from 
wave  clock  data:  NCAR(TYP)-H1CIK(V.TYP«4) 
for  non-zero  HlCLKlV. 1*6) 


Calculate  ttae  Interval,  DT,  froa  entp  to  L2 
(In  mlnutea): 

OT“(ALAOIS*LZDlS)*60/H$PO(LOT)r  HTF(6,L0TI  ♦ 
HTF ( 7 .LOT ) 


/  Did  thla  \ 
wave  utilize 
ait 

v  regaining  , 

3W 

load7  C:CC 
and  U:VW 


Set  atonal:  VSET-1  (to  call  RESTART).  Clear 
CC  4  wfl:  cc*0.  wu-o,  CCl-0,  wui*o.  Set  deck 
epot  aval ltbll tty:  0S*1 


Set  tlae  and  code  (3)  for  arrival  at  LZ: 
HiaK(W,2)-HOUfl*DT,  HiaK(W.3)-3.  Call 
approDrlate  wave  clasa  time  aort 


Gat  f  4  type  (lead  type)  of  deck  apota  (PAC) 
that  wert  In  uae  By  tnla  wave  Juat  prior  to 
thla  launch:  PAC*HEST(IDT.typ)- 


Compare  PAC 
with  #. 
(NCAR(TYP)l, 
of  hetoa  In 


Reatore  all  deck 
apota:  for  all 
J.K: 

OST(J,K)-MEST(J,K) 


Reatore  only  thoae  deck  apota  that  were 
being  uaed  by  thla  wave  (le  make  thew 
available  now,  along  with  proportional 
deck  apota  of 

other  load  typea  and  helo  typea: 

Rf -NCAR( TYPl/PAC  for  alt  J.K: 

MOS T  ( J,  K )  “MOST  (J,K)*Rf(  WEST  (J.K) -MOST  (J.K) 


Call 

RESTART 


Figure  D. 3  Flow  Diagram  of  HLNCB/BLNCH 


8.  routine  Name  :  HU NLD/BO  NIP 

a.  Purpose 

These  routines  determine  whether  or  not  landing 
sites  are  still  occupied  by  previous  waves  and  if  sc,  delays 
the  landing  of  the  current  wave  until  the  pertinent  zones 
are  free  to  use.  Also  it  calculates  the  length  of  time 
.necessary  for  the  current  wave  to  unload  (constrained  by  the 
size  cf  the  landing  zone). 

t.  Type  function 

Subroutine 

c.  Calling  routines 

These  routines  are  called  from  EXEC. 

d.  Called  routines 

HUNID  calls  HSSOET,  HCSORT,  HN SORT  and  EUNID 
calls  ISSORT,  IC SORT ,  1CS0RT. 

e.  Files  created  or  used 

None 

f.  Narrative 

These  routines  are  called  from  EX2C  when  the 
time  for  landing  at  the  landing  site  is  lowest  among  all 
ether  classes  of  waves  processed  by  MSORT .  The  subroutine 
first  checks  the  class  of  the  wave  and  then  gets  the  first 
line  of  serial  data  in  that  wave  to  be  processed.  The 
number  and  type  of  carrier  is  obtained  from  the  wave  time 
sort  array. 

Next,  each  line  of  serial  data  is  examined  to 
determine  its  destination.  If  one  of  the  landing  zones/ 
teaches  is  occupied  by  a  prior  wave,  the  wave  time  sort 
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array  is  set  to  await  clearance  of  the  laa ding  site. 
Control  then  returns  to  EXEC. 

If  all  of  the  zones  are  clear,  HONID/BUNLD 
computes  the  land  and  unload  time  interval,  ZF IME.  That 
time  is  added  to  the  current  time,  HOUR,  the  event  code  is 
set  to  "return  to  ship",  and  the  appropriate  wave  time  sort 
routine  is  called.  Finally,  the  time  for  completion  of  the 
unload  is  computed  and  placed  in  an  array  which  is  checked 
hy  subsequent  waves  to  determine  occupancy  of  the  landing 
site . 

g.  Flow  diagram 

See  Figure  D.4  . 

9.  Routine  Name:  HETN/EBTN 

a.  Purpose 

The  purpose  of  these  routines  is  to  print  a 
running  total  of  the  personnel  ashore  and  th»  firepower 
ashore.  Also  HETN  calculates  the  time  that  the  wave  will 
return  to  the  area  of  the  shipping  and  hence  be  available 
for  fcrmaticn  of  'subsequent  waves. 

h.  Type  function 

Subroutine 

c.  Calling  icutines 

These  routines  are  called  from  EXEC. 

d.  Called  routines 

HRTN  calls  HSSORT,  HCSORT,  ASSORT  ani  EF.TN  calls 
ISSORT,  ICS  CRT ,  LNS0B1. 


Handle  on-celt  l 
noneeheduled  wave*  In 
st»t ler  Banner 


HUNLD 

(He to  off-load  routine) 


Figure  0.4  Flov  Diagraa  of  H0NL0/B0HLD. 
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€.  Files  created  or  used 

None 

£.  Narrative 

These  routines  are  called  from  BXS C  when  the 
time  fcr  unload  completion  is  lowest  among  all  other  classes 
of  waves  processed  by  MSQRT.  The  class  of  wave  is  checked 
and  the  time  interval  necessary  to  return  to  the  ship  is 
calculated. 

The  running  totals  of  personnel  and  firepower 
ashore  are  tallied  and  sent  to  either  the  screen  or  the 
printer.  The  code  indicating  that  unloading  has  been 
completed  is  set.  Finally,  the  wave  time  sort  array  is 
updated  with  the  time  interval  to  arrive  back  at  the  ship 
and  the  appropriate  wave  class  time  sort  subroutine  is 
called. 


g.  Flow  diagram 
See  Figure  D.5  . 

10.  Routine  Name:  HAEIV/EAFIV 
a.  Purpose 

These  routines  return  the  carriers  to  their 
respective  pools  for  use  in  forming  subsequent  waves  after 
degrading  the  number  of  helicopters  to  reflect  attrition 
losses.  It  also  initiates  the  loading  process  for  subse¬ 
quent  waves. 

h.  Type  function 
Subroutine 


147 


:rtn 

(Helo  wave  clear  l»7  t  return) 


c.  Calling  routines 


These  routines  are  called  from  EXEC. 


d.  Called  routines 


HARIV  calls  HS SORT,  HCSORT,  HNSORC  and  EARIV 
calls  ISSORT,  LCSORT,  1NS0RT. 

e.  Files  created  or  used 
None 

f.  Narrative 

These  routines  are  called  from  EXEC  when  the 
time  for  arrival  back  to  the  ship  is  the  lowest  among  all 
other  classes  of  waves  processed  by  MSORT.  The  class  of  the 
wave  is  checked.  If  the  returning  wave  is  of  the  scheduled 
class,  the  number  and  type  of  carriers  are  placed  in  a 
carrier  pool.  At  this  point  reduction  of  the  returning 
carriers  can  be  made  by  an  attrition  factor.  Currently  the 
model  is  set  to  place  all  of  the  returning  carriers  into  the 
pool.  However,  by  changing  line  4310  (helo)  or  line  6660 
(surface}  in  the  program,  the  attrition  can  be  set  to  what¬ 
ever  value  desired. 

Next,  the  returning  wave  time  sort  array  is  set 
to  a  high  value  to  prevent  that  wave  from  being  processed 
again.  If  the  current  wave  is  the  last  of  the  class,  the 
appropriate  wave  time  sort  routine  is  called  and  control  is 
returned  tc  EXEC .  Otherwise,  the  routine  finds  the  next 
wave  to  load  and  sets  the  proper  codes. 

g.  Flow  diagram 
See  Figure  D.6  . 


•  "  ■,  i  \  *,  ■ ,  ^  ^  ^  .  .  »  »  .  *  .  *  .  ■  ••»*.”»■( 


H  AP I V 

(h«io  wave  »rriv«  eae*  at  *Mo) 


Figure  D.6  Flow  Diagraa  of  HARI7/BARIF 


1 1 .  Soutine  Na me ;  BEST A  BT/EESIABT 

a.  Purpose 

This  pair  cf  routines  is  used  to  restart  timing 
for  waves  stalled  by  insufficient  helicopter  deck  spots  or 
landing  craft  well  deck  spoLs.  If  there  are  not  enough 
deck/well  spots  available,  this  routine  adjusts  the  time  to 
load  by  adding  a  tine  increment  onto  the  wave  sort  array. 
Essentially,  this  action  delays  the  loading  until  a  reass¬ 
essment  determines  the  availibilty  of  spots  for  the  wave 
which  is  next  to  load. 

These  routines  also  serve  a  second  function  and 
that  is  to  add  an  increment  of  time  to  the  wave  sort  arrays 
when  switching  from  one  class  to  another.  This  short  delay 
is  designed  as  a  break  in  the  process  to  simulat  e  the  shift 
from  one  class  of  wave  to  another. 

t.  Type  function 

Subroutine 

c.  Calling  routines 

This  routine  is  called  from  EXEC. 

d.  Called  routines 

EESTAET  calls  HSSOBT,  HCSORT,  HNSORT  and  BESTAET 
calls  ISSOBT,  LCSORT ,  INSORT. 

e.  Files  created  or  used 

None 

f.  Flow  diagram 

Available  but  net  contained  in  this  aanual. 
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12.  Soutine  Name:  STOCH/STCCL 
a.  Purpose 

These  routines  initiate  on-call  waves  to  load 
after  the  final  scheduled  wave  commenced  to  load.  A  signal 
is  set  by  HELD  (ERLD)  when  the  last  scheduled  helo/surface 
wave  has  begun  the  leading  activity.  This  routine  then  sets 
up  the  on-call  waves  to  begin  the  loading  process.  If  the 
signal  for  on-call  waves  to  interrupt  the  scheduled  waves 
has  been  set,  this  routine  would  return  immediately  to  EXEC 
and  not  be  used. 

1.  Type  function 

Subroutine 

c.  Calling  routines 

These  routines  are  called  from  EXEC. 

d.  Called  routines 

These  routines  call  RESTART/BESTART. 
e •  Files  created  or  used 

None 

f.  Flow  diagram 

Available  but  not  contained  in  this  n anual. 

13.  Routine  Name:  5TN5H/5TN5L 
a.  Purpose 

The  purpose  of  these  two  subroutines  is  to  start 
the  ncnscheduled  helo/surface  waves  after  the  final  cn-call 
wave  has  commenced  tc  load.  A  signal  is  set  by  HRLD  (ERLD) 
which  tells  the  EXEC  when  the  ’st  on-call  wave  has  started 
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loading.  EXEC  then  calls  this  routine  to  set  up  the 
nonscheduled  waves  fcr  loading. 

t.  Type  function. 

Subroutine 

c.  Calling  routines 

These  routines  are  called  by  EXEC. 

d.  Called  routines 

These  routines  call  RESTART/BESTART. 

e.  Files  created  or  used 

None 

f.  Flow  diagram 

Available  but  not  contained  in  this  nanual. 

14.  Routine  Name:  STSH/STSI 

a.  Purpose 

The  function  of  these  two  routines  is  to  restart 
scheduled  waves  that  have  been  interrupted  by  on-call  waves. 
If  the  flag  is  set  to  have  on-call  waves  break  into  the 
scheduled  wave  sequence,  the  scheduled  waves  are  temporarily 
halted  by  another  routine.  Once  the  designated  on-call 
waves  are  complete,  the  scheduled  wave  sequence  resumes  by 
the  calling  of  STSH/STSL. 

b.  Type  function 

Subroutine 
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c.  Calling  routines 

These  routines  are  called  from  EXEC. 

d.  Called  routines 

These  routines  call  RESTAET/BESTART. 

e.  Files  created  or  used 

None 

f.  Flow  diagram 

Available  but  not  contained  in  this  aanual. 

15.  Routine  Name:  HCKID 

a.  Purpose 

This  routine  reevaluates  the  helicopter  deck 
spot  employment  if  the  current  wave  does  not  occupy  all  of 
the  spots.  By  doing  this  the  model  can  determine  how  many 
additional  spots  are  available  for  the  next  wave.  This  will 
indicate  that  either  the  next  wave  can  load  or  a  delay  will 
be  encountered  caused  by  a  lack  of  deck  spots.  As  soon  as 
enough  spots  are  available  a  flag  will  be  set  to  initiate 
loading  of  the  next  wave. 

b.  Type  function 

Subroutine 

c.  Calling  routines 

This  routine  is  called  by  EXEC. 

d.  Called  routines 

This  routine  calls  WSPOT. 
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€ .  Files  created  or  used 
None 

£.  Flow  diagram 

Available  but  not  contained  in  this  nanual. 

16.  Boutin e  Name:  HIODC K 
a.  Purpose 

HLODCK  is  a  short  routine  which  sets  up  addi¬ 
tional  signals  required  to  call  HCKLD  from  EXEC.  Those 
signals  indicate  whether  there  are  any  available  deck  spots 
left  after  the  current  wave  has  loaded. 

k.  Type  function 

Subroutine 

c.  Calling  routines 

This  routine  is  called  from  HLNCH 

d.  Called  routines 
None 

e.  Files  created  or  used 
None 

f.  Flow  diagram 

Available  but  not  contained  in  this  Banual. 

17.  Fou tine  Name :  WSPQT 
a.  Purpose 

This  routine  calculates  the  number  of  helo  deck 
spots  to  be  used  by  the  current  wave  and  then  how  many 
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remain  for  use  by  the  next  wave.  This  provides  information 
required  by  HCKLD  to  determine  whether  the  net  t  wave  can 
load  or  has  to  delay  until  the  current  wave  launches. 

t.  Type  function 
Subroutine 

c.  Calling  routines 

This  routine  is  called  by  HCKLD. 

d.  Called  routines 
None 

e.  Files  created  or  used 
None 

f.  Flow  diagram 

Available  but  not  contained  in  this  manual. 

18.  Routine  Name:  HALTS H/HALTSL 

a.  Purpose 

These  routines  will  stall  the  remaining  sched¬ 
uled  waves  when  they  are  interupted  by  on-call  waves.  If 
the  flag  is  set  to  interrupt  scheduled  waves,  this  routine 
is  called  prior  to  commence ment  of  the  on-call  waves.  Then 
once  the  on-call  waves  designated  to  interrupt  have 
completed  leading,  a  flag  will  be  set  to  call  STSH/STSL 
which  restarts  the  stalled  waves. 

t.  Type  function 
Subroutine 
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c.  Calling  xcutines 


This  routine  is  called  from  EXEC. 

d.  Called  routines 

None 

e.  Files  created  or  used 

None 

f.  Flow  diagram 

Available  but  not  contained  in  this  manual. 

F.  DATA  EASE  DESCBIPTION 
1 •  file  name:  Landing  Flan  data  file 

a.  Purpose 

Input  data  is  broken  down  into  three  categories. 
The  largest  group  of  data  is  found  in  the  landinj  plan  file. 
An  example  of  this  file  is  found  in  D.7  .  The  landing  plan 
file  contains  the  wave  and  serial  data  which  is  processed  by 
the  model.  It  has  type  of  carriers,  number  of  personnel, 
wave  number,  destination,  etc.  for  each  serial  going  ashore. 
Its  purpose  is  to  provide  the  model  with  the  troop  unit, 
equipment,  and  transportation  information  which  will  be 
•  moved  ashore'  by  the  simulation. 

t.  Format 

The  landing  plan  file  requires  the  manual 

construction  of  serials  and  assault  waves  in  a  specific 

format.  Each  line  in  the  data  file  contains  twelve  pieces 
of  information  which  the  model  requires.  These  are 
explained  as  part  of  an  example  listed  in  the  'help'  file 

under  landing  plan  file  (Section  B) .  This  in:  ormaticn  is 


731 7 ,  129,33,35,  1979.  A,  A,  9,'TTK-l ,615 
,340, 128,33,35, 1878, A, A, 8, I, R-2, 615 
378, 128,33,35, 1879. A, A. 9, I.R-3.615 
317,128,33,35,  1879, A. A, 8, I, R- 1,615 

348. 128.33.35. 1878,  A, A. 8, I,R-2,615 

378. 128.33. 35. 1878,  A, A, 8,1, R-3, 615 

,  317, 290, 66, 70, 3560, A, B, 9, I,R-1, 1230 
348, 280, 66, 70, 3560, A, B, 9,  I,R-2,  1230 
383, 230,  66,  70,  3560,  A,  B,  9,  I,  R-3,  1230 

1021. 50. 948. 5476. 37414,  A, B, 8, I,R-1,' 

1025. 50. 948. 5476. 3741 4,  A, B, 8, I, R-2.' 
1030, 50, Q48, 5476,37414, A, B, 9, I, R-3,' 
329, 112, 42, 34, 941, A, A, 7, I , R— 1 ,651 
359, 11 2, 42, 34, 841, A,  A.  7,  I ,  R-2, 651 
389,  112, 42, 34, 941, A, A. 7, I. R-3, 651 

,329, 1 1 2, 42, 34, 84 1, A, A. 7, I, R- 1,651 
359,  112.  42,  34. 941. A, A, 7, I, R-2, 651 
399,  U2.  42.34.  841 .  A,  A,  7.  I ,  R-3, 651 
1021, 62. 561, 32^6. 23015, A, A, 2, I,R-1,: 


Figure  0.7  Example  of  landing  Plan  Data  File. 

also  located  on  the  sane  disk  as  the  main  program  and  is  for 
use  in  constructing  the  data  file.  A  copy  of  the  'help' 
file  is  located  in  Appendix  E. 

c.  Routines 

This  file  is  called  by  the  SETUP  routine. 

d.  Updating 

Each  tine  a  new  landing  plan  is  used,  all  the 
parameters  jertaining  to  the  number  of  waves,  the  number  of 
landing  craft  for  scheduled  and  on-call  waves,  the  name  of 
the  landing  plan  file,  etc.  must  be  changed  te  conform  to 
the  new  data.  If  this  is  not  accomplished  an  error  will 
occur  identifying  the  line  in  the  code  where  an  inconsis¬ 
tency  was  found.  Mcst  of  those  values  are  found  in  the 
interactive  mode  which  helps  to  prevent  those  type  of 
errors. 


.*  -  -  •.  •  ■ •.  %  • 
•  »  .  •  •  '  a  m  w  - 


2.  file  name:  1- 1. DAT 
a.  Purpose 

This  data  file  contains  parameter  values  which 
are  not  subject  to  constant  change  (see  Figure  D.8  ) .  The 
three  major  tables  of  this  type  are  the  helicopter  time 
factors,  boat  time  factors,  and  operational  deck  spot 
tables.  The  first  two  provide  the  expected  times  for 

various  evolutions  to'  utilize  and  the  last  gives  the  deck 
spots  under  various  conditions.  Tables  XXII,  XXIII,  and 
XXIV  list  the  data  which  are  read  from  T-1.DAT.  The  purpose 
of  this  file  is  to  read  data  into  various  arrays  within  the 
program  which  will  be  used  to  compute  event  times. 


C'TVPE  T-l.DAT 

9, t. 4. 9. 9.?. 3, 9. 9.7,:. 9. i , i . i  . 1. 1 , 1. 1. 1. 1 . i* I- 
l!  I ! I,  l! K l ! l!  1. 1. 1. 1. 1.0. 0.0. 0.0, 0.0,0 

0,0.0, 1.  1,4. 4. 4. 4, 1.1, 1.3. 9.  10.4. 4. 4. 4. 4. 4.  1,1.1 

130.  100,  100,9.9,'  12.  11.30.30 

1 ,  1.  1. 1 . 1 . 1 .4, 10, 10. 10, 10, 10. 1. 1. 1, 1. 1. 1.0. 10. 10. 10. 10. 10.0.3,3.3.3.3. 1 , 
3.  1.  1.  1.  1. I. t. 1. 1.1.  1.  1.  1 


c:- 


Figure  0.8  Example  of  Data  File  T-l.DAT. 


b.  Format 

The  first  two  lines  of  the  T-l.DAT  file  refer  to 
Table  XXIV  .  The  data  is  listed  in  the  file  row  by  row  from 
the  table.  Thus,  the  first  twelve  values  come  E  rom  row  one 

i 

of  the  table.  The  next  line  contains  data  from  table  XXII  . 
It  is  listed  in  the  same  manner  as  Table  XXIV  except  the 
first  four  values  come  from  the  first  row  of  the  table, 
line  four  lists  three  helicopter  speeds  then  six  landing 
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TABLE  XXII 

Helicopter  Tine  Factors  in  Hinutes 


fl®ls  save  operation 

Internal 

Type  of  Load 
External 

Coabined 

(1)  Land  in  zone 

0 

0 

0 

(2)  Diseibark  troops  (cargo) 

1 

1 

4 

(3)  Takeoff/rendezvous  frca  LZ 

4 

4 

4 

(4)  Hanenver/la nd  ship 

1 

1 

1 

(5)  Refuel/enbark  troops  (cargo) 

5 

8 

10 

(i)  Takecff/rendez  vous  froa  ship 

4 

4 

4 

(7)  Maneuver/land  in  LZ 

4 

4 

4 

(0)  Safety  clearance  tine 

1 

1 

1 

craft  speeds.  The  vehicles  for  which  these  speeds  are 
listed  are:  CH-53,  CH-46,  UH1N,  L7T,  LCN-6,  LCH-8,  LCU,  LSI, 
and  L ABC .  The  last  two  lines  of  the  file  contain  data  from 
Table  XXIII  They  are  also  listed  by  row.  Section  C  of 
Appendix  E  contains  the  fornat  for  the  T-1.DAT  file. 

c.  Routines 

This  file  is  called  by  the  SETUP  routine. 

d.  Updating 

Updating  is  not  necessary  unless  different  tine 
factors  ate  desired  fcr  use. 
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TABLE  XXIII 

Boat  Time  Factors  in  Minutes 


Beit  «?is  aetcatioo 

hU 

A£8rL 

Boat  type 

A£S;S  teg  1ST 

LARC 

LCAC 

Land  at  beach  (or  LZ) 

1 

1 

1 

1 

1 

1 

1 

(2) 

Oiseibarlt  troops/load 

1 

10 

10 

10 

10 

10 

15 

(3) 

Rendezvous  for  return 

1 

1 

1 

1 

1 

1 

0 

(1) 

Deck  tine  to  ship  (veil  deck) 

0 

to 

to 

10 

1  0 

10 

10 

(5) 

Refuel/eabark  troops/load 

0 

5 

5 

5 

5 

5 

15 

(6) 

Circle  and  rendezvous 

1 

2 

2 

2 

2 

2 

i 

(7) 

Land  at  beach 

t 

1 

1 

1 

1 

1 

1 

(8) 

Safetf  clearance  tine 

1 

1 

1 

1 

1 

1 

1 

3.  lile  Name:  Interact ive/llne  input 

This  data  source  is  found  within  the  prograi  itself  as 
either  a  line  of  code  or  as  an  interactive  query.  The  data 
is  of  the  type  that  ray  be  changed  easily  for  various  types 
of  analysis.  Although  this  source  is  not  a  file,  it  is  the 
final  means  used  to  assign  values  to  the  remaining  vari¬ 
ables.  Once  the  first  two  files  are  prepared,  the  model  is 
loaded  into  the  computer  and  initiated.  The  program  will 
guery  the  user  to  input  data  for  the  parameters  which  are 
most  likely  to  change  during  any  type  of  analysis.  An 
alternative  is  to  change  the  code  within  the  program  itself 
where  scie  cf  these  values  are  found. 

a>.  Format 

Figure  D.9  contains  an  example  of  the  interac¬ 
tive  input  while  the  parameters  that  are  reguested  are 
listed  in  the  Table  XXV  . 
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TABLE 

XXIV 

- 1 

Operational 

Deck 

Spots 

Internal 

Loading 

External 

Loading 

Combii  ation 
Loading 

Shil  type 

ABC 

D 

A  B 

C  D 

A  B 

C 

D 

•  LHA  (#  1) 

9  7  4 

9 

9  7 

2  9 

9  7 

2 

9 

L  £  B  ( #  2) 

7  4  4 

7 

7  4 

2  7 

7  4 

2 

7 

LSE  (#3) 

1  1  1 

1 

1  1 

1  1 

1  1 

1 

1 

LFE  ( #  4) 

2  1  1 

2 

1  1 

1  1 

1  1 

1 

1 

1ST  (#5) 

1  1  1 

1 

0  0 

0  0 

0  0 

0 

0 

Helo  types: 

A=CH46E 

B=  CH53D 

C=CH53E 

D=Ui  IN 

t.  Soutines 
None 

c.  Updating 

Updating  of  this  input  data  is  relatively 
simple.  The  majority  of  parameters  which  would  need  to  be 
changed  will  be  reguested  by  the  interactive  queries, 
ethers  can  be  changed  by  a  direct  overwrite  in  the  program 
listing. 

G.  SCUBCE  LISTING 
See  Appendix  F. 
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RUN 

I  OF  SERIAL  LINES  OF  DATA  FDR  SCHED, DN-CALL,  \  N0N3CHED  HELD  THEN  SURFACE: 69, 23, 0, 60, 0, 0 
Setup  19907 

I  DF  SHIPS  BY  TYPE  (LHA, LPH, LSD, LPD, LST> : 5, 7, 1 , 9, 1 
1ST  TURNAROUND  SCHED  HELO  NAVE: 14 
I  OF  BEACHES  AND  I  DF  LANDING  ZONES: 4., 7 

HELO  LAUNCH  DISTANCE,  8DAT  LAUNCH  DISTANCE,  AND  SHORE  TO  LZ  DISTANCED, 2, 5 
LHDUR  AND  HHDUR: 01 7000, 0 

I  DF  HAVES  IN  ORDER  SCHEO,  ON-CALL,  NONSCHEO  HELO  THEN  SURFACE:23, 10,0,19,0,0 
I  DF  HELOS  THAT  CAN  OCCUPY  AN  LZ  AT  ANY  ONE  TINE  BY  TYPE  (CH46,  CHS2D,  CH53E,  UH1N) : 10,3,B, 16 
I  DF  CARRIERS  BY  TYPE  (CH46, CH53D, CH53E, UH * N, LVT , LCW6,LC!19, LCU, L3T, L ARC) :  156, 90, 32, 0,249, 52, 3942, 23,0,  12 
I  DF  SURFACE  CRAFT  THAT  CAN  OCCUPY  A  BEACH  AT  ANY  DNE  TINE  BY  TYPE  (LVT, LCH6, LCNI8, LCU, L3T, LARC ) : 6, 5, 4 , 2, 1 , 4 


INPUT  DATA  FILE  NANE:LPE.DAT 
OUTPUT  FILE  NAME: TEST  I 


Figure  D.9  Exairle  of  Interactive/Line  Input  Data. 


B.  GIOSSAEI  OF-  VARIABLES 

See  Section  F  of  Appendix  E. 

I.  B0DE1  TEST  BESOLIS 

See  Chapter  V  of  this  thesis. 
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TABLE 

XX? 

Interactive 

Para meters 

Order  of 
Bequest 

Parameter 

Name 

Definition 

1 

TA 

Sched  helo  serial  # 

2 

CA 

On-call  helo  serial  # 

3 

HA 

Nonsched  helo  serial  # 

4 

TS 

Sched  surf  serial  # 

5 

cs 

On-call  surf  serial  # 

6 

MS 

Nonsched  surf  serial  # 

7-12 

NOS  (I) 

Ship  type  (five  types) 

13 

TBNE1 

1st  turnaround  wi ve 

14 

HNB 

Number  of  beaches 

15 

N1Z 

Number  of  LZs 

16 

ASA  CIS 

Helo  launch  dista nee 

17 

LODEIS 

LVT  launch  distance 

18 

LZDIS 

Shore  to  LZ  di;jta  nee 

19 

HSWAVE 

Sched  wave  # 

20 

HCHAVE 

On-call  wave  # 

21 

HNWAVE 

Nonsched  wave  # 

22 

LSHAVE 

Sched  wave  # 

23 

LCWAVE 

On-call  wave  # 

24 

LNKAVE 

Nonsched  wave  # 

25-28 

HGF  (I) 

•  helos  max  in  LJ 
by  type  (4  types) 

29-38 

AT  (I) 

t  carriers  by  tyn e 
(10  types) 

39-44 

LGF  (I) 

t  boats  max  at  beach 
by  type  (6  types) 
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£££MDix  I 

•HELP'  FILE 


A.  TABLE  OF  COHTEHTS 

E  'Help*  File  Listing . 166 

C.  Landing  Plan  File . 167 

E.  T-1. EAT  File . 163 

E.  Input  Parameters  .  169 

F.  Subroutines . 172 

G.  Variable  List . 174 

H.  Have  Clock  Parameters . 180 


E.  GINEEAL 

The  ’help’  file  was  developed  to  assist  a  user  of  the 
model  with  guestions  that  will  probably  arise  during  opera¬ 
tion.  One  can  find  the  information  while  still  on  the 
computer  without  having  to  rely  on  a  manual.  A  listing  of 
the  ’help'  file  is  found  in  Figure  A.  1  . 


I 


I 


16! 


.\-y-v  -wVvV.- 


n  - 


10  INPUT  "DO  YOU  DESIRE  HELP?  (Y  OR  N)”sA* 

20  IF  A*-"N"  THEN  GOTO  140  ELSE  PRINT  "  VARIABLE  LIST-Ii  PROGRAM  INPUT  DATA-2!  T 
1  DATA-3<" 

30  PR I NT "WAVE  DATA-4)  SUBROUTINE  LIST-5!  EXIT-4" 

40  INPUT  "ENTER  DESIRED  INFO  «"|XiON  X  GOTO  50, 60, 70. BO,  90,  140 

50  OPEN  "I", 1 , "C: ALFHA. DAT" iGOTO  100 

60  OPEN  "I", 1, "C: INPUT. DAT"iGOTO  100 

70  OFEN  "I", 1, "CiTI.DAT "r GOTO  100 

BO  OFEN  " I " , I , "Ci LAND AT A. DAT" ! GOTO  100 

90  OFEN  "I", 1, "ClSUBROU.DAT" 

100  FR INT ! FRINT"TO  SCROLL  HIT  'Y'  WHEN  ‘CONTINUE?’  SHOWS.  ANY  OTHER  KEY  TO  EXIT 
" ! PRINT  I  PRINT 

110  FOR  1-1  TO  15  lLINE  INFUT  «I.L«iIF  LEFT* <L*, 3) -"END"  THEN  CLOSE  »IiGOTO  40  E 
L5E  FRINT  L*! NEXT 

120  INPUT  "CONTINUE"’"  |  Z*i  IF  Z*»“Y"  THEN  GOTO  110  ELSE  CLOSE  *1 i GOTO  40 
130  FRINT  "BY" 

140  END  . 

Ok 


Figure  I. 1  Help  File  Listing 


11NDIHG  PLAB  FILE 


type  lend  the 

THE  FOLLOWING  IS  AN  EXAMPLE  OF  THE  DATA  INPUT  FOR  ALL  WAVE 
INFORMATION  *  THE  FIRST  LINE  OF  LETTERS  AND  NUMBERS  IS  AN  ACTUAL  LINE  OF 
DATA  FOUND  IN  THE  LPE.DAT  FILE.  THE  CORRESPONDING  LETTERS  WILL  EXPLAIN 
EACH  COLUMN  OF  DATA, 


lS»317»128f33»35»1878»A»A»8»I»R-l»615 

•  t  »»»  >  »»»•»  » 


»  »  »  »•»•»  • 

A  »  B  t  C  »D  »E  »  F  K  t  L 


a:  THE  NUMBER  INDICATES  THE  WAVE  *  AND  THE  LETTER  REFERS  TO  THE 

CLASS  OF  THE  WAVE  ( S=SCHEDULED t  0=DN-CALL>  N=NON-SCHED) .MORE 
THAN  ONE  LINE  OF  DATA  (CALLED  A  SERIAL)  CAN  BE  OF  THE  SAME  WAVE 
NUMBER.  EACH  SERIAL  RUNS  SEQUENTIALLY  FROM  1  TO  THE  LAST  SERIAL 
THE  CLASS. 

b:  reserved  for  future  use. 

C!  NUMBER  OF  PERSONNEL  IN  PARTICULAR  SERIAL  OF  A  PARTICULAR  WAVE 

D-F *  RESERVED  FOR  FUTURE  USE. 

G*.  MODE  OF  TRANSPORTATION.  < A=HELO >  S=SURFACE) 

H:  CATEGORIES  OF  CARRIERS,  a  THROUGH  K  CORRESPOND  TO  1-11,  <1=CH46E 

2=CH53D>  3=CH53E »  4  =  UHIN»  5=LVT»  6=LCM-6»  7=LCM-8»  8=LCU»  9=LST, 
10=LARC»  1 1=LCAC ) ,  CARRIER  TYPE  MUST  BE  THE  SAME  FOR  THE  SAME 
WAVE. 

1 5  NUMBER  OF  CARRIERS  IN  THE  SERIAL 

J '  TYPE  LOAD  ( I-INTERNAL t  E  =  EXTERNALf  C»COMBINATION) 

KJ  DESTINATION*  (B-l  THROUGH  B-4  REFERS  TO  BEACHES  *1  THROUGH  #4 
AND  R-l  THROUGH  R-4  REFERS  TO  LANDING  ZONES  #1  THROUGH  #4) 

LI  WEAPONS  UNIT  VALUE  (WUV-FIP  POWER  SCORE) 

END  OF  FILE 


D.  1-1.  EAT  FILE 


THIS  HELP  FILE  COVERS  THE  INPUT  FILE  CALLED  DATA.T-I.  THE 
INFORMATION  CONTAINEO  IN  DATA.T-I  OEALS  KITH  PERMANENT  VALUES  SUCH  AS 
THE  HELO  TIME  FACTORS,  BOAT  TIME  FACTORS,  ETC.  THE  DATA  INPUT  KILL  BE 
EXPLAINED  IN  THE  ORDER  IT  IS  CALLEO  FOR  BY  THE  PROSRAM. 

tmtttttmtmtttttttmtmttmmmmmmm 


PROGRAM 
LINE  » 

VARIABLE 

DEFINITION 

LOCATION  IN  DATA.T-I 

40 

HOStl.J.X) 

HELO  OECX  SPOTS 

LINES  I  4  2 

70 

HTF(I,J) 

HELO  TINE  FACTORS 

LINE  3 

90 

HSPO(J) 

HELO  SPEEOS 

LINE  4  (1ST  3  DATA  POINTS) 

100 

BSPO(I) 

BOAT  SPEEOS 

LINE  4  (OATA  POINTS  4-9) 

220 

LTFII.J) 

BOAT  TINE  FACTORS 

LINES  5  4  4 

GENERAL  INFO: 


THE  OATA  IN  PROGRAM  LINE  40  IS  LISTEO  RON  BY  RON  FROM  THE  HELO 

DECK  TABLE  FOUND  IN  APPENOII  B.  THE  SUBSCRIPTS  REFER  TO  VALUES  AS 

FOLLOWS:  '  TUPE  SHIP,  J*TYPE  LOAD,  X*TYPE  HELO.  THE  FIRST  TWELVE  VALUES 
IN  THE  OAT..  ILE  CONES  FROM  THE  FIRST  LINE  OF  VALUES  IN  THE  TABLE.  THE 
SECONO  TWELVE  FROM  THE  SECOND  RON  AND  SO  ON. 

PROGRAM  LINE  70  INPUTS  DATA  FROM  THE  HELO  TIME  FACTORS  TABLE 
FOUND  IN  AFPENOII  B.  THE  SUBSCRIPT  I  REFERS  TO  THE  TYPE  OF  OPERATION 
ANO  J  REFERS  TO  THE  TYPE  LOAD.  THE  FIRST  RON  OF  THE  TABLE  FORMS  THE 
FIRST  THREE  VALUES  IN  THE  OATA  FILE.  THE  SECOND  THREE  THE  SECOND  RON 
AND  SO  ON. 

HELO  SPEED  VALUES  ARE  FOUNO  IN  LINE  90  OF  THE  PROGRAM.  THE 
SUBSCRIPT  REFERS  TO  THE  GENERAL  TYPE  OF  HELO.  J*I  IS  A  CH-5J,  J*2  IS 

A  CH-44,  AND  J*3  IS  A  UHIN.  THE  SECOND  GROUP  OF  DATA  FOUNO  IN  LINE  100 

IS  THE  BOAT  SPEEDS.  THE  SUBSCRIPT  REFERS  TO  THE  TYPE  OF  BOAT.  1*1  IS 
AN  LVT,  1*2  IS  AN  LCM-4,  1*3  IS  AN  LCM-B,  1*4  IS  AN  LCU,  1*3  IS  AN  LST, 
ANO  1*4  IS  A  LARC. 

PROGRAM  LINE  220  INPUTS  THE  BOAT  TIME  FACTORS.  THE  SUBSCRIPT  I 
REFERS  TO  THE  TYPE  OF  BOAT  NAVE  OPERATION  AND  J  REFERS  TO  THE  TYPE  OF 
BOAT.  THE  DATA  FOUNO  IN  THE  FILE  IS  LISTED  RON  BY  RON  FROM  THE  TABLE. 

•  THUS,  THE  FIRST  RON  IN  THE  TABLE  IS  THE  FIRST  FOUR  VALUES  IN  THE  DATA 
FILE  ANO  SO  ON. 

END  OF  FILE 
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E.  IHEU1  PABAHETEBS 


The  following  table  identifies  the  input  parameters)  line  number 
location)  and  a  brief  description  of  each  variable,  these  variables 


must  be 

initiated 

prior  to  running  the  model. 

Variable 

Line 

Name 

No . 

Def initon 

AL  AD  I S 

102 

Distance  from  ship  to  shore  for  helos  (.im) 

ASAOIS 

102 

Distance  from  ship  to  shore  for  LCAC  (nm) 

AT  ( I ) 

160 

Initial  ♦  of  carriers  that  will  participate  in 
landing  (I=tupe  carrier) 

BSPD(I) 

100 

Boat  speed  <I=type  boat!  1=LVT)  2=LCM-6)  3=LCM-9) 
LCU )  5=LST )  6=LARC ) 

CA 

40 

Total  ♦  of  lines  of  serial  data  for  all  on-call 
helo  waves 

CHCUR 

112 

Time  for  starting  first  LCAC  wave 

CL2BIS 

102 

Distance  from  shoreline  to  lcac  LZ  (nm) 

CS 

40 

Total  *  of  lines  of  serial  data  for  all  on-call 
surf  waves 

CSPD 

102 

LCAC  speed 

DLADIS 

102 

t'istance  boat  must  travel  from  ship  to  shore  (r-m) 

HCUAVE 

110 

Total  *  on-call  helo  waves 

HGF(I) 

142 

*  helos  by  type  that  can  land  and  unload 
simultaneously  in  LZ  (I=helo  type) 

HHOUR 

106 

Time  for  starting  first  helo  wave 

HI 

112 

Very  large  value  to  prevent  info  to  be  considered 
in  time  sort  (32000) 

HNUAVE 

110 

Total  *  non-sched  helo  waves 

HOLD 

112 

Same  as  HI  (=16000) 
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H 0 S ( I >  J>K)  60 


HSPD(I)  90 

HSUAVE  110 

HTF(I)  70 

LCUAVE  110 

LGF(I)  190 

LH0UR  106 

LNWAVE  110 

L3UAUE  110 

LTF(I)  220 

LZPIS  102 

MS  40 

NA  40 

• 

NBT  80 

HCLZ  80 

NCT  80 

NHT  80 

NLT  80 

NLZ  80 

NUB  80 

NST  90 

t 


Operational  deck  spots  for  helo  ops  (I=ship  type* 
J=type  loading!  iriternal>e::tern3l»  coitibination > 
K=type  helo) 

Helo  speeds  (I=type  load!  l=internal»  2=e::ternal> 
3=coiribiriation) 

Total  *  sched  helo  waves 

Table  of  helo  time  factors  (see  separate  table) 

Total  I  of  on-call  boat  waves 

*  of  boats  by  type  that  can  unload  simultaneously  at 
numbered  beach  or  LCAC  LZ 

Time  for  starting  first  boat  wave  (excluding  LCACs) 

Total  *  of  non-sched  boat  waves 

Total  *  of  sched  boat  waves 

Boat  time  factors  (I=boat  wave  operation! 

J=type  boat) 

Distance  from  shoreline  to  helo  LZ  (nm) 

Total  4  of  lines  of  serial  data  for  non-sched 
surf  waves 

Total  4  of  lines  of  serial  data  for  non-sched 
helo  waves 

4  boat  types  (5) 

4  of  lcac  ls's  available  to  current  landing  Plan 
4  lcac  types  (1) 

4  of  helo  typesH) 

4  of  LVT  types  (1) 

4  of  ls's  available  to  current  landing  plan 

4  of  numbered  beaches  available  to  current  landing 
plan 

4  shies  total  from  which  can  off  load 
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NUS(I) 

62 

♦  of  ships  by  type  from  which  off-loading  occurs 
( I=type  of  shir.  1=LHA.  2=LF'H.  3=LSD.  4 = L  P  D »  5=LST) 

OCHCK 

144 

Signal  identifying  uhether  on-cell  helos  are  to 
follow  scheduled  (OCHCK  =0)  or  break  into  sched  wave 
seciuence  (0CHCK=2).  If  =2  then  times  must  be 
specified  for  each  on-call  wave  to  commence 
operation 

OCHTAB(I) 

144 

Time  for  ori-call  helo  wave  to  commence  operation 
if  not  following  seouence  (I=wave  #).  scheduled 
waves  are  delayed  until  on-call  operations 
completed 

OCLCK 

144 

Signal  identifying  whether  on-call  boats  are  to 
follow  scheduled  (OCLCK  =0)  or  break  into  sched  wave 
seouence  (0CLCK=2).  If  =2  then  times  must  be 
specified  for  each  on-call  wave  to  commence 
operation 

SSPD(I) 

102 

'ShiP  speed  (I=type  ship!  1=LHA»  2=LPH.  3=LSD.  4»LPD» 
5=LST ) 

TA 

40 

Total  ♦  lines  of  serialised  data  for  sched  helo  waves 

TRNH1 

eo 

The  *  of  the  first  scheduled  helo  wave  in  first 
turnaround  wave 

TRNS1 

80 

The  *  of  the  first  scheduled  surf  wave  in  first 
turnaround  wave 

TS 

40 

Total  *  lines  of  serialised  data  for  sched  surf  waves 

UPS(I) 

144 

Well  deck  spot  array  (I=type  ship) 

17  * 


SCBBCOTIHES 


This  file  lists  all  of  the  subroutines  within  the  program 
code  and  their  location  by  line  number.  The  short 
description  dives  a  deneral  summary  of  what  the  routine 
does.  More  detailed  desciptions  of  the  major  routines 
are  contained  in  the  model  documentation. 


Routine 

Name 

Line 

No. 

Description 

BARIV 

6630 

Arrive  back  ship-surf 

BESTART 

7930 

Restart  timind  for  surf  waves  stalled  for 
insufficient  well  deck  spots 

BLNCH 

5400 

Launch-surf 

BRLB 

4990 

Loadind-surf 

BRTN 

6160 

Deposit  cardo-surf 

BUNLD 

5790 

Arrive/unload  lr-surf 

EXEC 

2270 

Controls  subroutines  and  timind  of  model 

HALTSH 

7900 

Stall  rem'ainind  sched  when  on-call  told  to 
start  before  completion  of  sched  air 

HALTSL 

b360 

Stall  remainind  sched  when  on-call  told 
to  start  before  completion  of  sched  surf 

HARIV 

4270 

Arrive  back  at  ship-air 

HCKLD 

8390 

* 

Reevaluates  deck  spot  employment  if 
current  wave  does  not  occupy  all  spots 

HCSORT 

3480 

Sort  routine  for  on-call  air 

HLNCH 

3700 

Launch  routine  for  air 

HLODCK 

8640 

Sets  up  recalculation  and  sidnals  to  call 
hckld  from  exec  called  from  HLNCH 

HNSORT 

3550 

Sort  routine  for  non-sched  waves-air 

HRLB 

2550 

Load  subroutine  for  air 

HR  T  N 

4610 

Deposit  c 3 rgo  subroutine-sir 

HSSORT 

3400 

Sort  routine  for  sched  sir 

HUNLD 

4060 

Unlosd  st  It  subroutine 

INITIAL 

470 

Initializes  sll  arrays  snd  sort  routines 

LCSORT 

4860 

Sort  routine  for  on-csll  surf 

LN50RT 

4920 

Sort  routine  for  non-sched  surf 

LSSORT 

4800 

Sort  routine  for  sched  surf 

MSORT 

3630 

Master  sort  routine-computes  next  event 
from  all  other  sort  routines 

RESTART 

7080 

Restart  timing  for  waves  stalled  by 
insufficient  helo  deck  spots 

SETUF 

10 

Initial  input  of  data  from  data  files 
and  within  program 

SPOTS 

3200 

Calculates  *  of  spots  to  be  used-called 
by  HRLD 

STOCH 

7750 

Start  on-call  helo  after  final  scheduled 
wave  began  to  load 

STOCL 

7750 

Start  on-call  surface  after  final 
scheduled  wave  began  to  load 

STSH 

7860 

Restart  scheduled  waves  after  stall  in 
HSLTSH  (air) 

STSL 

8320 

Restart  scheduled  waves  after  stall  in 
HALTSL  (surf) 

STNSH 

7820 

Start  non-scheduled  helo  after  final 
on-call  wave  began  to  load 

STNSL 

8280 

Start  non-scheduled  surface  waves  after 
final  on-call  wave  began  to  load 

WELI'EK 

5320 

Calculates  *  spots  to  be  used  for  surface 
craft  (called  by  8RLD) 

USPOT 

8710 

Calculates  #  spots  to  be  used  by  air 
(called  by  HCKLP) 
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G.  VARIABLE  LIST 


The  following  table  provides  s  listing  of  the  program  variables  and 
their  meanings.  It  contains  all  the  major  variables  and  most  of  the 
lesser  variables. 


A 


ACODE 

ALADIS 
AF'(I) 
ASADIS 
AT  ( I ) 

BEGNSH 

BEGOCH 

BEGOCL 

BEGNSL 

BEGSH 

BEG5L 

BSF'B(I) 

C 

CA 

CC 

CC1 

CHOUR 

CLZDIS 

cs 

CSPB 

BBAT 

BEST 

BLABAT 

BLABIS 

BIT  I HE 


Activity!  helo  (l-load»2=laijrich»3=arrive  LZ»4-deposit 
cargo»5=arrive  back  ship),  surface  (1-launch  preboatr2= 
arrive  beach»3=dePosit  cargo?  4=arrive  back  ship(except 
lvt's) »5=reload  from  well-deck) 

Code  for  next  event!  l=start  loading  wave»2=launch  loaded 
wave?3=reacii  destinatiun(LZ) ?4=eomplete  unloading  and 
start  return  trip»5=arrive  back  ship 

Bistance  from  ship  to  shore  for  helos(mti) 

♦  of  carriers  in  pool  for  future  use  (I-type  carrier) 

Bistance  f rum  ship  to  shore  for  LCAC(nm) 

Initial  *  of  carriers  that  will  participate  in  landing 
(I=type  carrier) 

=1  is  flag  to  begin  non-sched  helo  wave  (subroutine  EXEC) 
-1  is  flag  to  begin  on-call,  helo  wave  (subroutine  EXEC) 

=1  is  flag  to  begin  on-call  surf  wave  (subroutine  EXEC) 

=1  is  flag  to  begin  non-sched  surf  wave  (subroutine  EXEC) 
=1  is  flag  to  begin  sched  helo  wave  (subroutine  EXEC) 

=1  is  flag  to  begin  sched  surf  wave  (subroutine  EXEC) 

Boat  speed  (I=type  boat) 

Class  of  uave( l=sched»  2=on-call»  3-non  sched) 

Total  ♦  of  lines  of  serial  data  for  all  on-call  helo  waves 
Preserves  C 

Class  of  wave  in  subroutine  HCKLB 
Time  for  starting  first  LCAC  wave 
Bistance  from  shoreline  to  LCAC  LZ  (nm) 

Total  1  of  lines  of  serial  data  for  all  on-call  surf  waves 

LCAC  speed  over  ground 

Tally  ♦  of  boats  into  landing  zone 

Bestination 

Belay  table 

Bistance  boat  must  travel  from  ship  to  shore(nm) 

Time  needed  to  load  wave  (subroutine  HRLB) 

Beck  spots  available  code  (0=no?  1-yes) 
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DT  I  ME 
DTH(I) 

DT 

EA3H 

FCH 

FCL 

FMH 

FML 

FSH 

FSL 

HlCLK(UrN) 
H2CLK( U  t N ) 
H3CLK(U?N) 
HCUAVE 

HEST (LDT r TYP  > 
HGF(I) 

HHOUR 

HI 

HNUAVE 

HOLD 

HOS( I » J»K) 
HOST(LDTrTYP) 


Time  interval  to  unload  LZ 

Value  assigned  from  LTF(IrJ)  (boat  time  factors) 

Time  interval  for  wave  to  return  to  ship 
Running  total  of  the  type  load 

♦  of  first  line  of  serials  to  be  carried  in  on-call  helo 
uave 

♦  of  first  line  of  serials  to  be  carried  in  on-call  surf 
uave 

♦  of  first  line  of  serials  to  be  carried  in  non-sched  helo 
uave 

♦  of  first  line  of  serials  to  be  carried  in  non-sched  surf 
uave 

♦  of  first  line  of  serials  to  be  carried  in  sched  helo 
uave 

♦  of  first  line  of  serials  to  be  carried  in  sched  surf 
uave 

Sched  subarray  for  helo  info  (u=uave  I r  n=uave  info  -see 
separate  explanation  page) 

On-call  subarray  for  helo  info  (u=uave  *»  n=uave  info  -see 
separate  explanation  page) 

Non-sched  subarray  for  helo  info  (u=uave  *»n=uave  info 
-see  separate  explanation  page) 

Total  ♦  on-call  helo  uaves 

Temp  array  for  same  info  as  HOST (LDT ? TYP ) 

♦  helos  by  type  that  can  land  and  unload  simultaneously  in 
LZ  (I=helo  type) 

Time  for  starting  first  helo  uave 

Very  large  value  to  prevent  info  to  be  considered  in  time 
sort  (32000) 

Total  *  non-sched  helo  uaves 
Same  as  HI  (=16000) 

Operational  deck  spots  for  helo  ops  (I=ship  typer  J=type 
loading!  internal rexternal r  comb!  K=type  helo) 

Total  t  of  all  of  deck  spots  tL0T=type  loading! internal r 
external?  combination!  TYP=type  helo > 


HOUR 

HSFD(I) 

HSUAVE 


Current  time  in  minutes 
Helo  speeds  (I=type  load) 
Total  ♦  sched  helo  uaves 


HTFCI) 

I 

LATE 

LICLK(U.N) 

L2CLK(U»N> 

L3CLK(W,N) 

LCUAVE 

LDT 

LGF(I) 

LHOUR 

LNUAVE 

LS 

L5WAVE 

LTF(I) 

LZDIS 

M 

MCLOCK ( I  *N ) 

MODE 

MS 

NA 

NBT 

NCAR(I) 

NCLZ 

NCT 

NM 

NHT 

NLSET 


Table  of  helo  time  factors  (see  separate  table) 

Counter 

Very  large  value  to  prevent  info  to  be  considered  in  time 
sort  (17000) 

Sched  subarray  for  surf  wave  info  OJ=uave$*  N=wave  data- 
see  separate  explanation) 

On-call  subarray  for  surf  wave  info  (U=wave  ♦  *  N=wave 
data  -see  separate  explanation 

Non-sched  subarray  for  surf  wave  info  (W=uave  ♦  *  N=wave 
data-  see  separate  explanation 

Total  ♦  of  on-call  boat  waves 

Wave  load  factor  (l=internal*  2=external*  3=combinat 4  on) 

♦  of  boats  by  type  that  can  unload  simultaneously  at 
numbered  beach  or  LCAC  LZ 

Time  for  starting  first  boat  wave  (excluding  LCACs) 

Total  *  of  non-sched  boat  waves 
Wave  *  =  SSL ( N  *  2 ) 

Total  *  of  sched  boit  waves 

Boat  time  factors  (I=boat  wave  operation*  J=type  boat) 

Distance  from  shoreline  to  helo  LZ  (nm) 

1st  line  of  serial  data  to  be  carried  by  wave  (M=FSH  or 
FCH  or  FMH) 

Master  clock  subarray  (i=l  to  6*  l=sched  helo*  2=on-call 
helu*  3=non-sched  helo*  4=sehed  surf*  5=un-call  surf*  6= 
non-sched  surf*  n=wave  data-see  separate  explanation) 

Air=l*  surf  =  2 

Total  ♦  of  lines  of  serial  data  for  non-sched  surf  waves 
Total  ♦  of  lines  of  serial  data  for  non-sched  helo  waves 

♦  boat  types  (5) 

♦  carriers  of  type  I 

♦  of  LCAC  LZ's  available  to  current  landing  plan 

♦  LCAC  types  (1) 

♦  of  helos  returning  by  type 
I  of  helo  types(4) 

Flag  to  signal  begin  non-sched  surf  waves  after  on-call 
waves  completed 
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NIT 

NLZ 

NNB 

NS 

NSA 

NSS 

NSSET 

NST 

NUS(I) 

OA 


♦  of  L V T  types  (1) 

♦  of  LZ's  available  to  current  landing  plan 

♦  of  numbered  beaches  available  to  current  landing  plan 

♦  of  deck  spots  to  be  used  for  this  wave  (subroutine  HRLD) 
Counter  for  non-sched  helo  input 

Counter  for  non-sched  surf  input 

Flag  to  signal  begin  non-sched  helo  waves  after  on-call 
waves  completed 

♦  ships  total  from  which  can  off  load 

♦  of  ships  by  type  from  which  off-loading  occurs  (I=type 
of  ship?  l=lha»  2=lph?  3=lsd?  4=lpd?  5=lst) 

counters  for  ori-call  helo  serials 


OCHCK 


OCHTAB(I) 

OCLCK 


0C3ET 

OCTIM 

OS 

FAC 

PASH 
P  ( I ) 
RMFRC 
SA 

SCA(IfJ) 


SCH(I.l) 


Signal  identifying  whether  on-call  helos  are  to  follow 
scheduled  (OCHCK  =0)  or  break  into  sched  wave  seauence 
(0CHCK=2).If  =2  then  times  must  be  specified  for  each  on- 
call  wave  to  commence  operation 

Time  for  on-call  helo  wave  to  commence  operation  if  not 
following  seauence  (I-wave  ♦  ).  Scheduled  waves  are 
delayed  until  on-call  operations  completed 

Signal  identifying  whether  on-call  boats  are  to  follow 
scheduled  (OCLCK  =0)  or  break  into  sched  wave  seauence 
(0CLCK=2).  If  =2  then  times  must  be  specified  far  each  un 
call  uave  to  commence  operation 

Signal 

LlCLK(Ni2)  +  ZTIME  -  time  next  event  plus  time  to  unload 
on  beaches 

Counters  for  on-call  surf  serials 

*  and  type(load)  of  deck  spots  in  use  by  the  current  wave 
prior  to  launch 

Running  total  of  personnel  ashore 

Pools  of  helos  (i=helo  type) 

Fractional  availability  of  deck  spots 

Counters  for  sched  helo  serialised  data 

Storage  arrays  for  serialised  input  data  for  on-call  helo 
waves.  (J=followina  values!9=UUV»  l=uave  ♦  ?  2=personnel ? 
3=type  carrier?  4-4  of  carriers?  3-type  load? 
6=destination?  7=launch  signal!  I=#  of  serial  line 
of  data) 

Uave  *  of  each  line  of  data  for  on-call  helo  wave 
( I=wavet) 


waves  completed 


SCH ( I » 2 ) 

SCL(Ifl) 
SCL( I i 2) 

SCS(I.J) 


SEASH 

SFASH 

SNA(I.J) 


SNH(If  1) 

SNH'1.2) 

SSH( I * 1 > 
SSH (1*2) 

SNL(I.l) 
SNL( I *2) 

SNSdtJ) 


SS 

SSA( I i J) 


SSET 

SSL(I.l) 
SSL( I » 2 ) 

SSPD 


First  line  of  serialized  data  for  each  on-call  helo  wave 
(I=uave  #) 

Type  carrier  for  on-call  surf  uave  (I=uave  *) 

First  line  of  serialised  data  for  each  on-call  surf  wave 
(I=wave  *) 

Storage  arrays  for  serialised  input  data  for  on-call  surf 
waves.  (J=follouing  values!0=UUV*  l-uave  1*  2=personnel* 
3=type  carrier»  4  =  *  of  carriers*  5=type  load* 
6=destination*  7=launch  signal*  IM  of  serial  line 
of  data) 

Total  eauipment  ashore 

Running  total  of  firepouer  ashore 

Storage  arrays  for  serialised  input  data  for  non-sehed 
helo  waves.  (J=follouing  values ! 0=UUV*  l=uave  ♦  » 
2=persor.nel*  3=type  carrier*  4-4  of  carriers*  5=type  load* 
6=destination*  7=launch  signal*  I=#  of  serial  line 
of  data) 

Uave  ♦  of  each  line  of  data  for  non-sched  helo  uave 
(I-uave  *) 

First  line  of  serialised  data  for  each  non-sched  helo  uave 
d=wave  ♦) 

Uave  ♦  of  each  line  of  data  for  sched  helo  uave  (l=uave  ♦) 

First  line  of  serialised  data  for  each  sched  helo  uave 
(I=uave  I) 

Type  carrier  for  non-sched  surf  uave  (I=uave  #) 

First  line  of  serialised  data  for  each  non-sched  surf  uave 
(Trgave  I) 

Storage  arrays  for  serialised  input  data  for  non-sched 
surf  waves.  <J=follouina  values!0=WUV*  l=uave  ♦* 
2=personnel*  3=type  carrier*  4=4  of  carriers*  5=type 
load*  5=destinalion*  7*launch  signal*  I-#  of  serial  line 
of  data) 

Counters  for  sched  surf  serialised  data 

Storage  arrays  for  serialised  input  data  for  sched  helo 
waves.  (J=follouing  values!0=UUV*  l=uave  ♦*  2=personnei* 
3=type  carrier*  4-1  of  carriers*  5=type  load* 
6=destination*  7=launch  signal*  I=#  of  serial  line 
of  data) 

Flag  for  calling  restart 

Type  carrier  for  sched  surf  uave  (Isuave  I) 

First  line  of  serialised  data  for  each  sched  surf  uave 
(I=uave  *) 

Shi?  speed 
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SSS(I»J) 

TA 

TRNH1 

TRNS1 

TS 

VLADIS 

U 

UD 

UDS(I) 

UDST 

UEST 

ULDT 

UNS 

USET 

UTYP 

UU 

UU1 

ZM(  I ) 

ZONE  ( I ) 

ZTIME 


Storage  arrays  for  serialized  input  data  for  sched  surf 
waves.  ( J=follouin3  values ! 0-UUV »  l=uave  2-personnel > 
3=type  carrier»  4=#  of  carriersi  5=type  loadi 
6=destination»  7= launch  signal?  I-*  of  serial  line 
of  data) 

Total  *  lines  of  serialized  data  for  sched  helo  waves 

The  1  of  the  first  scheduled  helo  uave  in  first  turnaround 
wave 

The  *  of  the  first  scheduled  surf  uave  in  first  turnaround 
uave 

Total  #  lines  of  serialized  data  for  sched  surf  waves 
Distance  from  launch  to  shore  of  landing  craft 
Counter  for  uave  * 

Uell  deck  availability  code  (0=no>  l=yes> 

Uell  deck  spot  array  (I=type  ship) 

Uell  deck  spots  total  in  the  fleet 
Uell  deck  spots  total  in  the  fleet 
Load  type  being  employed  by  current  uave 
♦  deck  spots  being  employed  by  current  uave 
Signal  to  call  restart  (=1) 

Type  carrier  being  employed  by  current  uave 
Preserve  u  (uave  ♦)  in  subroutine  HRLD 
Signal  used  to  setup  (subroutine  HCK'LD) 

Time  table  for  landing  in  zone  (I)  (time  unload  complete.) 
Landing  zone  signal  (I=LZ  type)  (l=free  to  land  in) 

Ms::  time  to  unload  over  all  landing  zones  in  use 
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H.  1AVE  CLOCK  PABAHE1EHS 


The  wave  clock  parameters  are  -found  in  si;:  arr 
There  is  an  array  for  each  class  (3)  and  for  both 
and  surface  modes.  They  are  of  the  form  H1CLK(W,N). 
The  table  below  is  a  breakdown  of  the  coding  for  N. 

N  Value  Value  and  code  for  wave  clock  parameter 


0  Signal:  0=wave  not  loaded  yet 

l=wave  is  or  has  loaded 

2=wave  has  offloaded  cargo  ashore 

1  Wave  number 

2  Time  of  next  event  (future  time) 


3  Code  for  next  event: 

l=start  loading  wave 
2=launch  loaded  wave 
3=reach  destination 

4=complete  unload  and  start  return  ship 
5=arri ve  back  at  ship  area 

4  Wave  load  factor  (helo  only): 

l=internal  loading 
2=e>;ternal  loading 
3=combinati on  load 

5  Mode  of  transportai on  (use  by  master  clock): 

1 =hel o 
2=sur f  ace 

6  Class  of  serial  (master  clock): 

1 *schedul ed 
2=on-cal  1 
3=non-schedul  ed 


6+1  Number  of  helos  of  type  I  in  wave 
END  OF  FILE 


( 
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APPENDIX  F 
PROGRAM  LISTING 


3  -PROGRAM  THAT  WRITES  TO  FILE  ;  27  APR  34: DATSHIP. BAS 
A  'SM  PITACCO 

7  ’INITIAL  INPUT  ROUTINE  LIMES  0-470 
20  DEF  FNX*-MIDS(Al*, INSTR(A1*, ",")*t) 

30  DEF  FNY*=STR*<L!+CHRS<4)+A1S 

40  DEFINT  A-Y:  INPUT"#  OF  SERIAL  LIMES  OF  DATA  FOR  SCHED.  ON-CALL,  •!<  NONSCHED  HELO 
THEN  SURFACE : “ . T A , CA , NA , TS , CS . MS 

42  DIM  SC A (CA , 7) ,SSA(TA.7) ,SSS(TS.7) ,SC3<CS,7) .SNA(NA.7) .SNS(MS,7) . H0S(3.3.4) 

44  DIM  MUS(S) ,HTF<9,3) , LTF (S, A) ,HSPD<3) ,BSDP<6> , DLABAT (4,3,7) ,H03T(3,4) 

50  PRINT"Setup" ; FRE (9) :0PEN"I", 1, "T-l.DAT 

60  FOR  I-I  TO  S: FOR  J«l  TO  3i FOR  K-t  TO  4s  INPUT# 1 , HOS ( I . J,K) 

62  NEXT:NEXT:NEXT: INPUT"#  OF  SHIPS  BY  TYPE  (LHA, LPH. LSD , LPD, LST) : " , NUS  < 1 ) , NUS (2) 
,NUS<3> , NUS (4) , NUS (3) 

70  FOR  I-t  TO  3: FOR  J=1  TO  3: INPUT#!,  HTF ( I , J ) : NEXT: NEXT 

90  NHT-4:NLT«1:NBT-5:NCT-0:NST«5:TRNSI-10:TRNS2=10: INPUT” 1ST  TURNAROUND  SCHED  HE 
LO  WAVE: ", TRNH! 

92  INPUT"#  OF  BEACHES  AMD  #  OF  LANDING  ZONES: “ ,NNB , NLZ 
90  FOR  J»l  TO  3:  INPUT#!,  HSPD(J):NEXT 

100  FOR  I-t  TO  NLT ♦NBT+NCT : INPUT# 1 , BSPD ( I ) : NEXTRUN 

101  INPUT" HELO  LAUNCH  DISTANCE,  BOAT  LAUNCH  DISTANCE,  AND  SHORE  TO  LZ  DISTANCE:" 

, ALADIS,LODDIS,LZDIS 

102  NEXT:SSPD-20: ASADIS-9:  VLADIS-2: DLAD IS-8: CLZD IS- 1 
104  CSPD-10 

106  INPUT-LHOUR  AND  HHOUR : " , LHOUR , HHOUR 

110  INPUT"#  OF  WAVES  IN  ORDER  SCHED,  ON-CALL,  NONSCHED  HELO  THEN  SURFACE: ", HSWAV 
E , HCWAVE , HNWAVE , LSWAVE , LCWAVE ,  LNWAVE 
1 1 2  CHOUR- 1 7000 : LATE- 1 7000 : H I -32000 : HOLD- 1 6000 : VS- 1 

114  VC-2: VM-3: DIM  SSH(HSWAVE, 2) , SCH< HCWAVE. 2) , SNH (HNWAVE, 2) , SSL (LSWAVE, 2) 

120  DIM. SCL (LCWAVE, 2) , SNL (LNWAVE, 2) 

130  DIM  H 1 CLK ( HSWAVE , NHT ♦6 ) , H2CLK (HCWAVE, NHTt-6 ) , H3CLK (HNWAVE, NHT+6) 

132  DIM  L1CLK (LSWAVE, NLT+NBT+NCT+6) , L2CLK (LCWAVE, NLT ♦NBT+NCT ♦6 ) 

134  DIM  L3CLK (LNWAVE, NLT+NBT+MCT+6) .OCHTAB (HCWAVE) 

140  DIM  AT(NHT+NLT+NBT+NCT) , AP < NHT+NLT+NBT+NCT) .PCNHT+NLT+NBTI-NCT) ,HGF(NHT) 

142  DIM  LGF (NLT+NBT *NCT) , WDS (NST) :  INPUT”#  OF  HELOS  THAT  CAN  OCCUPY  AN  LZ  AT  ANY 
ONE  TIME  BY  TYFE  (CH46,  CH33D,  CH33E,  UH IN) : " , HGF ( l ) , HGF ( 2) , HGF (3) , HGF ( 4) 

144  WDS ( 1 ) -6: WDS (2) -2: WDS (3) -3: WDS ( 4) -5: WDS (3) -7: OCHTAB ( 1 ) -18 
130  OCHCK-O 

190  INPUT"#  OF  CARRIERS  BY  TYPE  (CH46 . CH33D. CH33E. UHIN, LVT. LCM6, LCM9, LCU. LST, LAR 
C) ! ",AT(D ,AT(2> .AT (3) ,AT<4) ,AT(3) ,AT<6) ,AT(7) ,AT(8) ,AT(?) ,AT(10) 

190  INPUT"#  OF  SURFACE  CRAFT  THAT  CAN  OCCUPY  A  BEACH  AT  ANY  ONE  TIME  BY  TYPE  <LV 
T , LCM6 . LCM9 , LCU , L3  T , LARC ) : ".LGF (l) ,LGF(2) .LGF (3) .LGF (4) ,LGF'3> ,LGF(6> 

220  FOR  I-t  TO  9 : FOR  J-l  TO  6:INFUT#1.  LTF ( I , J ): NEXT: NEXT: CLOSE  1 
230  PRINT  CHR»( 12) : 

232  ’IF  EOF (2)  THEN  END 
240  ZZ»-“SETUP-A" 

230  A*-"LFE" 

232  INPUT" INPUT  DATA  FILE  NAME: “. INF ILE# 

260  OFEN" I", 1. INFILE* 

262  INPUT  "OUTPUT  FILE  NAME: ”, OUTF ILE* 

270  SS-  1 : SA- 1 : OS- 1 : OA- 1 : NSS- 1 : MSA- 1 

280  INPUT# 1 . A* : LIME  INPUT# 1 . A 1  * : IF  LEFT* ( A* . I ) -"E"  THEN  CLOSE  1 : NSA-NSA-1 : GOTO  4 
70 

290  IF  LEFT* < A*, 1)-"T"THEN  230 

300  FOR  I-l  TO  3: Z ( I ) -VAL (Alt) : A 1*-M ID* (Alt, INSTR (Al*.“.")*l): NEXT : Z (0 ) -Z (0) 

302  IF  LEFT* ( A 1* , 1 ) «“S"THEN  GOSUB  320  ELSE  GOSUB  360 
304  TWUV 1 »  TWUV 1 +WUV 
310  GOTO  280 

320  IF  RIGHT* (A*. I ) »"0"THEN  340  ELSE  IF  R IGHT* ( A* , l ) — ”N" THEN  330 
330  A1«-MID«(A1*,3) :FOR  J-0  TO  3 

332  Z  (3)  -0:  Z  (4)  -O:  SSS  (SS.  J )  -Z  ( J )  :  NEXT:  S33  ( S3.  I )  -VAL  (A*)  :K«7 
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334  FOR  J=l  TO  3  STEP  2:X*»FNXi 

536  SOSUB  400: SSS  <S3, K) =L: K-K+l : NEXT : S3S (SS. 0) -WUV: S3-SS+1 : RETURN 
340  A1S-MID*  t A1 *, 3) : FOR  J»0  TO  5 

34  2  Z !3>»0: Z (4) -0: SCS (OS,  J)»Z !J> : NEXT:  3CS (OS. 1) »VAL(A*) :K»3 
344  FOR  J»1  TO  3  STEP  2: X*=FNX* 

346  GOSUB  400: SCS (OS , K>  «L: K-K+l : NEXT : SCS (OS , 0) -WUV: 0S-03+ 1 : RETURN 
330  A1*=MI D*  ( AH ,  3)  :  FOR  J»0  TO  3 

332  Z (3>  *0: Z (4) -0:SNS (NSS, J)»Z (J) :NEXT:SNS (NSS, 1>-VAL(A*> :K-3 
334  FOR  J»1  TO  3  STEP  2:X*»FNX« 

336  GOSUB  400 : SNS ( NSS , K ) »L :  K-K+ 1 :  NE XT :  SNS ( NSS , 0 > -WUV : NSS-NSS  + 1 : RETURN 
360  IF  R I GHT  * ( A* , l )  -  “  0  " THEN  330  ELSE  IF  RIGHT* ( A*, 1 > -"N"THEN  390 
370  A1J-MID*  (Alt, 3)  :FOR  J»0  TO  3 

372  Z !3>»0: Z (4) -0: SSA (SA, J)*Z(J> (NEXT: SSA (SA, 1 ) -VAL ( A* ) : K-3 
374  FOR  J-l  TO  9  STEP  2:X«»FNX« 

376  GOSUB  400 :  SS  A  ( SA ,  K )  »L :  K-K+  1:NEXT:SSA(SA,0)  -WUV :  S  A-S  A+ 1 :  RETURN 
3B0  Al*»MID« (Al*,3> (FOR  J-0  TO  3 

332  Z (3>-0:Z(4)»0iSCA(0A, J>-Z ( J ) i NEXT: SCA (OA. 1>»VAL(A*> :K-3 
334  FOR  J»1  TO  3  STEP  2:X*»FNX* 

386  GOSUB  400: SCA (OA, K) »L: K-K+ 1 (NEXT: SCA ( OA , 0 > -WUV: OA-OA+ 1 : RETURN 
390  Al*-MI D* ( Al* , 3 ) : FOR  J-0  TO  3 

392  Z (3) -0: Z (4) -0: SNA (NSA, J) »Z (J) (NEXT tSNA (NSA, l > -VAL (A* ) :K»3 
394  FOR  J»1  TO  3  STEP  2:X«-FNX« 

396  GOSUB  400 : SNA ( NSA , K > -Li K-K+ 1 : NEXT: SNA ( NS A , 0 5 -WUV : NSA-NSA+ 1 : RETURN 

400  IF  K-4  THEN  L-VAL (A  1  * ) : A 1 *-FNX* ( RETURN 

410  IF  K-3  THEN  L-ASC  (LEFT*  (A  1* ,  1  >> -64:  AH-FNX* :  RETURN 

420  IF  K06  THEN  440  ELSE  GOSUB  460:  X*-RIGHT*  (Al*,3)  :  IF  X*-'*B-r*  OR  X*«"R-1"  THE 
N  L— 1  ELSE  IF  X*»"B-2"  OR  X*-"R-2"  THEN  L-2  ELSE  IF  X*-,,B-3”  OR  X«-,,R-3"  THEN  L» 
3  ELSE  L-4 
430  GOTO  430 

440  X*-LEFT*(A1*. 1) : IF  X*-"C"THEN  L-3  ELSE  IF  X^-'T'THEN  L»l  ELSE  IF  X*«"E"  THEN 
L-2 

430  A 1*»FNX«: RETURN 

460  WUV«-FNX« : A 1 *-LEFT* (A1*,LEN(A1«) -LEN (WUV* ) - 1 5 : WUV-VAL ( WUV* ) : RETURN 

469  -INITIALIZES  TIME  CLOCKS  AND  TIME  CLOCK  PARAMETERS  LINES  470-1280 

470  OFEN  OUTFILE*  FOR  OUTFUT  AS  *2 
430  LLHOUR-LHOUR : HHHOUR— HHOUR 

490  T  ( 1  > -LLHOUR : T ( 2 ) -HHHOUR :  T  ( 3  > -CCHOUR ( FOR  I-l  TO  3: U < I > -4- 1 : NEXT: FOR  J-l  TO  2: 
FOR  I-l  TO  3:  IF  T ( I 1  >  >T(  I  >  THEN  SWAP  T  ( I  >  .  T  ( I  +  l )  :  SWAP  U  <  I  >  ,U  ( I  +  l  > 

300  NEXT :NEXT: FOR  I-l  TO  3: T( I ) -T ( I ) -T (3) (ON  U  < I >  GOSUB  3 10. 320, 330: NEXT 

302  ERASE  T: ERASE  U:GOTO  340 

310  CCHOUR-T( I ) (RETURN 

320  HHHOUR-T ( I ) : RETURN 

330  LLHOUR-T ( I ) : RETURN 

340  GOSUB  330: GOTO  2270 

330  ’  AT  ( 1 )- 130: AT (2) - 100: AT <3>- 100: AT (4) -30: AT (3) -200: AT (6 > -81 : AT (7) -64: TRNSt-10 
332  ’ TRNH1-7:N«NHT*NLT*NBT*NCT:F(jR  I-l  TO  N: AF ( I ) -AT ( I > : NEXT 
360  N-NHT*NLT+NBT+NCT:FOR  I-l  TO  N: AP ( 1 1 -AT < I > : NEXT 
380  FOR  I-l  TO  6:MCL0CK (1,2) -LATE (NEXT 

390  FOR  >1  TO  HSWAVE: H1CLK (1,2) -LATE : NEXT : FOR  I-l  TO  HCWAVE 

392  H2CL’  (1,25 ’V ATE (NEXT: FOR  I-l  TO  HNWAVEs H3CLK ( 1 , 2) -LATE: NEXT 

394  FOR  t-1  ro  LSWAVF : L1CLK (1,2) -LATE: NEXT: FOR  I-l  TO  LCWAVE: L2CLK ( I , 2) -LATE 

600  MEXT : FOR  I-l  TO  LNWAWE  L3CLK (?. 2> -LATE: NEXT 

610  FOR  ►»',  TO  NLZi ZN(KS »0:NEX? 

620  30SUB  : 630 

630  J-HHHOUP 

640  FOR  N-l  TO  TRNH1-! 

630  H1CLK  (N,  1 !  »N:  H1CLI  (N.  2 ! -J :  HI CLK  ( N.  7)  *>  l :  H ICLl  (N.  3)  - 1 :  H1CLK  (N.  6) -1 :  J-J+ 1 
660  NEXT :GOSUB  1290 
670  IF  OCHCl  2  THEN  71-. 

6S0  FOR  I-l  TO  HCWAVE 
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690  H2CLK (l, 1)»I« H2CLK (1,2) -0CHTAB < I ) +HHHOUR : H2CLK ( I . 2) *1 : H2CLK ( I , S) =1 
692  H2CLK(I.6)«2 

700  NEXT : FCH= 1 : GOSUB  1260: GOTO  720 
710  GOTO  720 

720  L=NL  T +NBT+NCT :  L1CLK  (1.2)  -LLHOUR 
730  FOR  N-l  TO  LSWAVE 

740  L1CLK (N, 1)-N:L1CLK<N.3>«2:L1CLK(N,3>=2:L1CLK(N,6>«1 

7-0  LS-SSL (N, 2) ! FOR  1-1  TO  L : NCAR ( I ) —0 : P ( I +NHT ) — AP ( I +NHT ) : FOR  K-l  TO  MMB 
732  DBAT(I.K)=0: NEXT: NEXT 

760  IF  LS=T3  THEN  320  ELSE  IF  S33(LS.l>ON  THEN  920  ELSE  I-SSS  (LS.  3)  -NHT 
770  IF  M-0  THEN  PRINT"MO  MO  DATA" : STOP 

790  IF  P ( I+NHT) >-SSS (LS, 4 ) THEN  910  ELSE  J-SSS (LS. 1) : L1CLK ( J , 2) -HOLD 
790  IF  3SS (LS-1 , 1 ) < >SSS (LS, 1 ) THEN  BOO  ELSE  LS-LS-1 : SSSILS, 7) -0: GOTO  790 
900  FSL-LS: PRINT"LS" ; LS; “  -  Insufficient  Scheduled  landing  cr a-ft STOP 
910  NCAR < I ) -NCAR < I ) +SSS ( LS, 4 ) i SSS ( LS , 7 ) - 1 : DEST-SSS ( LS , 6 ) 

912  DBAT ( I , DEST) -D8AT ( I , DEST) +S33(LS, 4) : P ( I +NHT) »P ( I+NHT) -SSS (LS.4) :LS=LS+1 
914  GOTO  760 

920  FOR  1-1  TO  L: AP <I+NHT)-P< I+NHT) :L1CLK(N, 1+6) -NCAR (I > : IF  NCAR ( I ) < >0  THEN  II-I 
930  NEXT 

940  FOR  K-l  TO  NNB: DTIME (K) -0: FOR  1-1  TO  L 
330  IF  DBAT ( I , K) <»0  THEN  990 
960  DBAT ( I , K) -DBAT ( I , K) -LGF ( I ) 

970  DTIME (K) -DTIME (K>  +LTF ( 1 , I ) +LTF (2, I ) +LTF (8, 1 >  s GOTO  930 
980  NEXT: NEXT 

890  ZTIME-O: FOR  K-l  TO  L: IF  DTIME !K) >ZTIME  THEN  ZTIME-DTIME (K) 

900  IF  N-LSWAVE  THEN  OCT  I M-L 1CLK (N, 2) +ZT I  ME: GOTO  930 
910  NEXT: IF  N-LSWAVE  THEN  OCT  I M-L 1CLK (N. 2) +ZT I  ME: GOTO  930 
920  L1CLK (N+l , 2) -LlCLK (N, 2) +ZTIME 

930  IF  SSS(LS,2)C0  THEN  940  ELSE  L 1CLK  (N+ 1 , 2) -HOLD :  GOTO  930 
940  NEXT 

930  IF  NCT-0  THEN  PRINT"Boat  pool “ : AP (3) J AP (6) ; AP (7) ; AP CB> ; AP (9) : AP ! 10)  ELSE  PR  I 
NT  "Boat  pool ”» AP(3) |AP(6) ;AP(7) |AP(8) ; AP(9) jAP(10) » AP( 11) 

932  GOSUB  1320 

936  IF  C3-0  THEN  FCL-HI : FML -HI : GOTO  1226 
960  IF  SC3 (  1 . 1 ) -0  THEN  FCL-HI : FML-H l : GOTO  1226 
970  L-NLT+NBT+NCT : L2CLK (1,2) -OCT IM 
990  FOR  N— 1  TO  LCWAVE 

990  L2CLK  '.i’.'.  1 )  - 1 :  L2CLK  (N.  3)  -2:  L2CLK  (N,  3)  -2:  L2CLK  (N,  6)  -2 

1000  LC-SCL (N, 2) : FOR  1-1  TO  L: NCAR ( I ) *0: P ( I +MHT) -AP ( I +NHT) : FOR  K-l  TO  NNB 
1002  DBAT ( I , K) -0: NEXT: NEXT 

1010  IF  LC-CS  THEN  1100  ELSE  IF  SCS(LC.1)CN  THEN  1100 

1020  I-SCS (LC, 3) -NHT : IF  I  .-0  THEN  LFRINT“NO  DATA “ : GOTO  1226 

1030  IF  P ( I+NHT) .'-SCSfLC, 4) THEN  1090 

1040  J-SCS (LC. 1) : L2CLK ( J . 2) -HOLD 

1030  IF  SCS  (LC-l ,  1 )  •' )  SCS  (LC.  1 )  THEN  1070 

1060  LC-LC- 1 : SCS (LC. 7) -0: GOTO  1030 

1070  FCL-LC:LFPINT"LC“;LC; “  Insufficient  on-call  craft" 

1090  GOTO  1230 

1090  NCAR ( I ) -NCAR ( I ) +SCS (LC, 4) : F ( I +NHT > -P ( I +NHT ) -SCS (LC, 4) :SC3 (LC. 7) -1 
1092  DEST -SCS (LC, 6) : DBAT ( I , DEST) -DBAT ( I , DEST) +SC3 (LC. 4) : LC-LC+1 : GOTO  1010 
1100  FOR  1-1  TO  L: AP( I+NHT) -P ( I+NHT) :L2CLK(N. 1+6) -NCAR ( I ) 

1102  if  ncar(I)::o  then  ii»: 

1110  NEXT 

1120  FOR  K-l  TO  NNB: DTIME <K)-0: FOR  I- l  TO  L 
1130  IF  DBAT ( I . K )  -0  THEN  1160 
1 1 40  DBAT ( I , K) -DBAT ( I . K ) -LGF ( I ) 

1 130  DTIME  O') -DTIME (1 ) +LTF (1,1) +LTF (2.1) +LTF(9. I) : GOTO  1130 
1160  NEXT: NEXT 

1170  ZTIME-O: FOR  K-l  TO  L: IF  DTIME <K> ' ZTIME  THEN  ZTIME-DTIME <K> 

1130  NEXT 
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1192  IF  N-LCWAVE  THEN  NST IM-L2CLK  CM ,  2)  +ZT IME :  GOTO  1220 
1 1 90  L2CLK ( M+ 1 . 2 ) -L2CLK ( N , 2  >  +  ZT I ME 

1200  IF  SC3  (LC.  2)  "  0  THEN  1210  ELSE  L2CLK  (N+ 1 , 2)  -HOLD:  GOTO  1220 
1210  NEXT 

1220  IF  NCT-0  THEN  PRINT 
1222  GOSUB  1590 

1226  IF  MS-0  THEM  FML-HI : GOTO  1240 

1230  IF  SNS (1,1) *0  THEN  FML-HI : L3CLK ( 1 , 2) -LATE 

1240  FOR  1-1  TO  NST :  WDST -WDST  +WDS  ( I )  (tNUS  ( I )  :  NEXT :  WEST -WDST 

1230  PASH-0 :SEASH»0:SFASH»0: FOR  1-1  TO  NST :  FOR  J-l  TO  3,-FOR  K»1  TO  NHT 

1232  HOST ( J ,  K  > -HOST ( J ,  K  > +-HOS ( I ,  J ,  K >  *NUS ( I ) ! HEST ( J , K> -HOST ( J. K> 

1234  NEXT: NEXT: NEXT: FOR  1-1  TO  6: IF  I<-3  THEN  MCLOCK ( I , 3) -1  ELSE  MCLOCK ( I , 3 > -2 
1260  IF  1-1  OR  1-4  THEN  MCLOCK ( I , 6) -1  ELSE  IF  1-2  OR  1-3  THEN  MCLOCK ( I , 6) -2  ELSE 
MCLOCK (I, 6) -3 
1270  NEXT 
1272  DS-1 
12S0  RETURN 

1289  ’ 

1290  TIME-LATE: FOR  W-l  TO  HSWAVE 
1300  IF  H1CLK (W, 2) >»T IME  THEN  1320 

1310  TIME-H1CLK (W, 2) : AC0DE-H1CLK (W, 3) :HWAVE»W 
1320  NEXT 

1330  MCLOCK (1,2) -TIME: MCLOCK (1,1) -HWAVE: MCLOCK (1,3) -ACODE: H1CLK (HWAVE, 2) -HOLD 

1 332  MCLOCK ( 1 , 3 ) - 1 : MCLOCK ( 1 , 6 ) ■ 1 

1340  IF  ACODE-6  THEN  H1CLK (HWAVE, 2) -LATE 

1330  RETURN 

1339  ’ 

1360  ' FRINT"HCSORT" 

1370  TIME-LATE: FOR  W-l  TO  HCWAVE 
1390  IF  H2CLK(W.2) '-TIME  THEM  1400 
1390  TIME-H2CLK (W, 2} : ACODE -H2CLK (W, 3) :HWAVE-W 
1400  NEXT 

1410  MCLOCK ( 2 . 2 ) - T I ME : MCLOCK (2,1) -HWAVE :  MCLOCK ( 2 . 3 > -ACODE : H2CLK ( HWAVE . 2 ) -HOL D 

1412  MCLOCK ( 2 , 3 ) » 1 : MCLOCK ( 2 ,  6 ) - 2 

1420  IF  ACODE-6  THEN  H2CLK (HWAVE, 2) -HOLD 

1430  RETURN 

1439  ' 

1440  'PRINT" HNSOR  T “ 

1430  TIME-LATE: FOR  W-l  TO  HNWAVE 
1460  IF  H3CLK(W,2) . -TIME  THEN  1480 
1470  TIME-H3CLK (W, 2) : AC0DE-H3CLK (W, 0) : HWAVE-W 
1490  NEXT 

1 490  MCLOCK (3.2) -TIME: MCLOCK (3,  1 ) -HWAVE:  MCLOCK (3. 3) -ACODE: H3CLK (HWAVE, 2) -HOLD 

1492  MCLOCK (3. 3) - 1 : MCLOCK (3. 6) -3 

1300  IF  ACODE-6  THEN  H3CLK (HWAVE , 2) -LATE 

1310  RETURN 

1319  ' 

1320  ' PRINT"LSSORT” 

1330  TIME-LATE: FOR  W*1  TO  LSWAVE: IF  L1CLK(W,2>  -TIME  THEN  1330 

1340  TIME-L’CLK (W. 2) : AC0DE-L1CLK (W. 3) iLWAVE-W 
1330  NEXT 

1360  MCLOCK (4. 2) -TIME: MCLOCK (4.  1 ) -LWAVE: MCLOCK ( 4 , 3) -ACODE: L1CLK ( LWAVE , 2) -HOLD 
1562  MCLOCK  ( 4, 3)  -  2:  MCLOCH  ( 4. 6)  - 1  s  IF  ACODE-6  THEN  L 1CLMWAVE,  2)  -LATE 
1370  RETURN 
1379  • 

1390  •FRINT"LCSORT" 

1390  T ! ME-LATE : FOR  W-l  TO  LCWAVE: IF  L2CLK(W,2)  -TIME  THEN  1610 
1600  T IME-L2CL1  (W, 2) : AC0DE-L2CLK  'W, : LWAVE-W 

1610  NEXT: MCLOCK (3.2) -TIME: MCLOC)  (3, 1 ) -LWAVE: MCLCCI  (3. 3) -ACODE: L2CLK (LWAVE, 2) -HC 
LD 
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1612  MCLOa:  < 5 . 5 > -2 : MCLOCK i 5 . 6  >  =2 : I F  AC0D£=6  THEN  L2CLK (LWAVE. 2) =LATE 
1620  RETURN 
1623  ' 

162?  'COMPUTES  ARRAYS  FOR  WAVE  #'S  AND  SERIAL  #  OF  1ST  SERIAL  IN  WAVE 

1630  IF  TA=0  THEN  1680  ELSE  W-l :SSH (W. 2) -1 : S3H (W. 1 ) =W: IF  TA=0  THEN  1690 

1640  FOR  1=1  TO  TA:IF  33A < I , 1 1 =W  THEN  1670 

1630  IF  SSA ( I . 1 ) =0  THEN  1680 

1660  W-W-M  :  SSH  (W,  2)  “I !  S3H  (W,  1 1  =W 

1670  NEXT 

1680  IF  CA-0  THEN  1730  ELSE  W= 1 : SCH <W, 2! = 1 : SCH <W. 1 1 =W: IF  CA-0  THEN  1730 
1690  FOR  1=1  TO  CAs IF  SCA(I,1)=W  THEN  1720 
1 700  IF  SC A ( 1 , 1 >  — 0  THEN  1 730 
1710  W=W+1 : SCH(W, 2) =1 : SCH (W, 1) =W 
1720  NEXT 

1730  IF  NA=0  THEN  1780  ELSE  W= l : SNH <W, 21 =1 : SNH <W. 1 1 =W: IF  NA-0  THEN  1780 

1740  FOR  1=1  TO  NAs IF  SNA ( I , 1 ) =W  THEN  1770 

1730  IF  SNA (1,11 =0  THEN  1780 

1760  W=W+ 1 : SNH ( W , 2 ) = I ! SNH ( W , 1 ) =W 

1770  NEXT 

1780  IF  TS“0  THEN  1830  ELSE  W=1 1 SSL (W. 21  =  I : SSL (W. 1 > =SSS ( 1 , 3) 

1790  FOR  1  =  1  TO  TS: IF  SSS  < 1 , 1 ) =W  THEN  1820 

1900  IF  SSS <I.l>=0  THEN  1830 

1810  W-W+-1 :  SSL  <W,  2)  =  I  s  SSL  (W,  1)=3SS(I,3) 

1820  NEXT 

1830  IF  CS-0  THEN  1880  ELSE  W= 1 : SCL <W, 2) = 1 : SCL <W, 1 1 =SCS ( 1 , 3) 

1840  FOR  1=1  TO  CSiIF  3CS ( I , 1 1 »W  THEN  1870 

1830  IF  SC3 ( I . 11=0  THEN  1880 

1860  W-W+l iSCL (W.2) =1 iSCL (W, 1)=SCS(I,3) 

1870  NEXT 

1880  IF  MS-0  THEN  1930  ELSE  W= 1 J  SNL (W. 21  =  1:  SNL (W. 1 1 —SNS (1.3) 

1890  FOR  1=1  TO  MS: IF  SNS < I , 1 1 =W  THEN  1920 

1900  IF  SNS <1.11=0  THEN  1930 

1910  W=W-M:SNL<W,2)  =  I:SNL<W,  1 1  -SNS  <1,31 

1920  NEXT 

1930  RETURN 

193?  ' 

1940  'EXEC  SUBROUTINE-CONTROLS  TIMING  AND  EXECUTION  OF  MODEL 

2270  IF  HOUR-LATE  THEN  CLOSE  »2iST0F  ELSE  PTIME-32000 

2230  IF  PTIME.HOUR  THEN  CLOSE  »2:ST0P 

2290  IF  CCIOO  THEN  GOSUB  8390 

2300  IF  BEGNSH-1  THEN  GOSUB  7820 

2310  IF  BEGOCH-1  THEN  3CSUB  7730 

2320  IF  BEGSH-1  THEN  GOSUB  7860 

2330  IF  WSET  ' 0  THEN  GOSUB  7080 

2340  GOSUB  3630: IF  MODE-2  THEN  2430 

2330  IF  a; 1  THEN  2370 

2360  GOSUB  2330: GOTO  2270 

2370  iF  A >2  THEN  2390 

2380  GOSUB  3700: GOTO  2270 

2390  IF  A. 3  THEN  2410 

2400  GOSUB  4060: GOTO  2270 

2410  IF  A- 4  THEN  2430 

2420  GOSUB  4610: GOTO  2270 

2430  IF  A, 3  THEN  STOP 

2440  GOSUB  4270: GOTO  2270 

2430  IF  A  1  THEN  2470 

2460  GOSUB  4990: GOTO  2270 

2470  IF  A’2  THEN  2490 

2430  GOSUB  3400: GOTO  2270 

2490  IF  A ' 3  THEN  2310 
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2300  G03UB  3770: GOTO  2270 
2310  IF  A, 4  THEN  2330 
2320  GOSUB  A 1 60s  GOTO  2270 
2330  IF  A? 3  THEN  3T0F 
2340  GOSUB  6630! GOTO  2270 
254?  ’ 

2330  ’ HRLD 

2360  FOR  1-1  TO  NHT: NCAR < I ) -0: P < I ) -AF < I ) : NEXT : LDT-0 
2370  IF  CM  THEN  2730 
2380  M«SSH(W,2) :W-SSA(M, 1) 

2370  IF  DSOO  THEN  2610  ELSE  H1CLK <W, 3> ■ 1 i H1CLK (W. 2) -H0UR+10: FSH-SSH (W. 2) 

2600  GOSUB  3400: RETURN 
2610  IF  SSA(M,  l)OW  THEN  2680 
2620  I«SSA(M,3> 

2630  IF  PCI) >«SSA<M,4)THEN  2630 

2640  H1CLK  (W.  1 )  »W: H1CLK  <W,  2)  -H0UR+10:  H1CLK  (W, 3> -1 :  GOSUB  3400 1  RETURN 
2630  P  ( I )  »P  < I ) -SSA (M, 4) :NCAR ( I > -NCAR < I >  *S3A <M, 4) 

2660  IF  SSA (M, 3) >LDT  THEN  LDT-SSA(M,3> 

2670  IF  M-TA  THEN  2600  ELSE  M-M*1:G0T0  2610 

2680  H1CLK (W,  1 ) -W: H1CLK (W,  3) -2: H1CLK  <W, 4) -LDT ! FOR  1-1  TO  NHT 

2682  AP(I)-P(I>  tHICLKIW,  I  ♦■6 )  -NCAR  ( I )  .-NEXT 

2690  FOR  1-1  TO  NHT:  IF  NCARdlOO  THEN  1 1  - 1 

2700  NEXT 

2710  H1CLK (W, 0) — 1 

2720  GOSUB  3200 

2730  IF  NS-0  THEN  DLTI ME-lO: HI CLK (W, 3> - 1 I H1CLK (W, 0> -0 
2740  IF  DS-0  THEN  CC-1 : WW-W: WSET-O: WTYP- 1 1 : WNS-NS : WLDT-LDT 

2730  HI CLK (W,  2> -HOUR+OLTIME: FSH-M: IF  W-HSWAVE  AND  OCHCK-O  THEN  OCSET-1;  X-l 

ELSE  IF  W-HSWAVE  THEN  NSSET - 1 ! BEGNSH- 1 

2760  GOSUB  3400 

2770  RETURN 

2730  IF  02  THEN  3010 

2770  MC -SCH  ( W ,  2 ) ! W-SC A ( MC , 1 ) 

2100  IF  OCHCK-2  AND  33ET-0  THEN  GOSUB  7900 

2810  IF  DSCO  THEN  2030  ELSE  H2CLK (W,  3) -1 : H2CLK (W, 2) -HOUR+10: FCH-SCH (W. 2) 

2320  GOSUB  3480: RETURN 

2030  IF  SCAIMC,  l>OW  THEN  2900 

2340  I-SCA(MC,3) 

2830  IF  PU)  >-SCA(MC,4)  THEN  2870 

2360  H2CLK ( W , 1 ) -W : H2CLK <  W . 2 ) -HOUR  *10: H2CLK ( W . 3  > - 1 : GOSUB  3480 : RETURN 
2870  P ( I ) -P ( I ) -SCA  < MC , 4 ) : NCAR ( I ) -NCAR ! I ) +SC A ( MC . 4 ) 

2330  IF  SCA (MC, 3)  LOT  THEN  LDT-3CA (MC, 3) 

2870  IF  MC-CA  THEN  2700  ELSE  MC-MC+1 J GOTO  2830 

2700  H2CLK(W, 1 > »W| H2CLK <W, 3) -2:  H2CLK (W, 4) -LDTsFOR  I-i  TO  NHT 

2702  AF ( I ) «P ( I ) :H2CLK(W. 1*6) -NCAR ( I ) :NEXT 

2710  FOR  1-1  TO  NHT:  IF  NCARUK'O  THEN  1 1  - 1 

2920  NEXT 

2930  H2CLK (W, 0) » l 

2740  IF  W-HCWAOE  AND  OCHCK-2  AND  SSET-1  THEN  SSET-2: BEGSH- 1 
2930  GOSUB  3200 

2760  IF  NS-0  THEN  DLTIME-10: H2CLK (W. 3) -1 :H2CLK (W, 0) -0 

2970  IF  DS-0  THEN  CC-2: WW-W: WSET-O: WTYP-I I : WNS-NS: WLDT-LDT 

2780  H2CLK !W, 2>»H0UR*DLTIME:FCH»UC» IF  W  HCWAVE  THEN  3000 

2790  IF  OCHCK-2  AND  FSHOHI  THEN  SSET-2: BEGSH- 1  ELSE  NSSET- 1 : BEGNSH- 1 

3000  GOSUB  3480: RETURN 

3010  IF  FMH' -H I . THEM  STOP 

3020  MN-SNH ( W , 2 > : W-SNA ( MN . 1 ) 

3030  IF  DS  0  THEN  3030  ELSE  H3CLK (W, 3) » 1 : H3CLK (W. 2) -HOUR* 10: FMH-3NH (W. 2) 

3040  GOSUB  3330: RETURN 

3030  IF  SNA  (MN,  1 W  THEN  3110 
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3060  I-SNA1MN, 3) : IF  PCI)  -SNA !MM. 4)  THEN  3030 

3070  H3CLK (W, 1 ) -W: H3CLK (W. 3) -H0UR+10: H3CLK <W, 3) =  1 : GOSUB  3330 » RETURN 
3030  F  ( I  >  =P(  I) -SNA  <MN. 4) : MCAR ( I > -NCAR ( I ) +SNA  <MN. 4) 

3090  IF  SNAtMN.3) >LDT  THEN  LDT-SNA (MN . 3 ) 

3100  IF  MN-NA  THEN  3110  ELSE  MN»MN+1:G0T0  3030 

31  10  H3CLK  <W,  1)-W:H3CLK(W,3)-2:H3CLK(W,  4>«LDT 

3120  FOR  1-1  TO  NHT:AP(I)-P<I) :H3CLK(W, 1+6) -NCAR ( I > ! NEXT 

3130  FOR  1-1  TO  NHTiIF  NCARIDOO  THEN  1 1  - 1 

3140  NEXT 

3130  H3CLK (W, 0) ”1 

3160  GOSUB  3200 

3170  IF  NS-0  THEN  DLTIME-10:H3CLK (W, 3) «t : H3CLK <W,0>»0 
3180  IF  DS-0  THEN  CC-3: WW-W: WSET-O: WTYF- 1 1 : WNS-NS: WLDT-LDT 

3189  ' 

3190  H3CLK (W, 2) -HOUR+DLTIME: FMH-MN: GOSUB  3530sRETURN 
3200  IF  HOUR' 1300  THEN  CLOSE  #2: STOP 

3210  J-0: FOR  1-1  TO  NHT 
3220  IF  NCARU1-0  THEN  3240 
3230  J-J+1:TYF-I 
3240  NEXT 

3230  IF  J>1  THEN  3260 
3260  ' 

3270  NS-HOST (LDT, TYP) 

3230  IF  NS-0  THEN  RETURN 
3290  IF  NS INCAR (TYP)  THEN  3310 

3300  FOR  J-l  TO  3) FOR  K«1  TO  NHT: HOST <J,K> -0: NEXT: NEXT: DS-O: GOTO  3350 
3310  RMFRC’ -(NS-NCAR (TYP) > /HOST (LDT, TYP ): FOR  J-l  TO  3»F0R  K-l  TO  NHT 
3312  HOST (J.K) -RMFRC !*HOST(J,K> : NEXT: NEXT 
3320  DS-1 

3330  • PR  I NT "RMFRC"; RMFRC! , "NS") NS 
3340  ' 

3330  DLTIME-O 

3360  IF  MCAR ( TYP ) < -0  THEN  3330 

3370  DLTIliE-DLTIME+HTF (3, LDT) : NCAR (TYP) -NCAR (TYP) -NS: GOTO  3360 
3380  RETURN 
3390  STOP: RETURN 

3399  • 

3400  TIME-LATE: FOR  W-l  TO  HSWAVE 
3410  IF  H1CLK(W,2> >-TIME  THEN  3430 

3420  TIME-H1CLK (W. 2) : AC0DE-H1CLK <W,3> :HWAVE-W 
3430  NEXT 

3440  MCLOCK (1,2) -TIME:  IF  HWAVEIHSWAVE  THEN  RETURN  ELSE  MCLOCK  ( 1 .  1 )  -HWAVE : MCLOCK  ( 

1. 3)  -ACODE: H1CLK (HWAVE, 2) -HOLD: MCLOCK (1, 3) -1: MCLOCK (l. 6 )»1 
3430  IF  ACODE-6  THEN  H 1CLK (HWAVE , 2) -HOLD 

3460  RETURN 
3470  ’ 

3430  TIMEv^AT^: FOR  W-l  TO  HCWAVE 

3490  IF  H2C.K (W, 2)  -TIME  THEN  3310 

3300  T IME-42CLK (W , 2) : ACODE -H2CLK (W. 3) : HWAVE -W 

3310  NEXT 

3320  MCLOCK (2, 2) -TIME: IF  HWAVEIHCWAVE  THEN  RETURN  ELSE  MCLOCK (2, 1 ) -HWAVE: MCLOCK  ( 

2.3)  -ACODE : H2CLK (HWAVE , 2) -HOLD : MCLOCK  <  2 , 3) » 1 : MCLOCK ( 2,  6 ) -2 
3330  IF  ACODE-6  THEN  H3CLK (HWAVE . 2) -HOLD 

3340  RETURN 
3349  ’ 

3330  • 

3360  TIME-LATE: FOR  W» 1  TO  HNWAVE 

3370  IF  H3CLK1W.2) .-TIME  THEN  3390 

3380  TIME -H3CLK ( W , 2 ) : ACODE -H3CLK  W.3) :HWAVE-W 

3390  NEXT 


187 


3600  MCLOCK <3. 2) -TIME: IF  HWAVE -  HMWAVE  THEN  RETURN  ELSE  MCLOCK  <3.  13  =HWAVE:  MCLOCK  ( 

3 , 3 ) * ACODE : H3CLK ( HWAVE , 2) “HOLD: MCLOQ :  i  3 .  3 !  -  1 : MCLOCK  < 3 , 6 > -3 

3610  IF  ACQDE=6  THEN  H3CLK (HWAVE. 2) -HOLD 

3620  RETURN 

362?  ’ 

3630  ' MSORT 

3640  TIME-LATE: FOR  1=1  TO  6 
3630  IF  MCLOCK (I, 2) >»TIME  THEN  3670 
3660  TIME -MCLOCK (1,2) i J-I 
3670  NEXT 

3630  IF  TIME-LATE  THEN  END 

3690  HOUR-TIME: W-MCLOCKIJ, 1) i A-MCLOCK ( J,3> : C-MCLOCK ( J .6) : MODE-MCLOCK (J. 3) : PRINT" 
MIN”: HOUR. "CLASS” ;C.  '•WAVE”;W, "ACTIVITY” j  A, "MODE”; MODE 
3694  RETURN 

3699  ’ 

3700  ’ HLNCH 

3710  IF  CM  THEN  3310 

3720  fl-SSH  (W,  2)  :  FOR  1-1  TO  NHT:  IF  H1CLK  (W,  1+6)00  THEN  NCAR  ( I )  -H1CLK  (W.  1+6)  :  TYP- 

I 

3730  NEXT 

3740  ' FRlNT"No  carri *r»” i NCAR ( TYP) ; TYF 
3730  IF  S3A  (M,  l)OW  THEN  3770 

3760  SSA (M, 7) — 1 : IF  M-TA  THEN  FSH-HIiOOTO  3770  ELSE  M-M*l:GOTO  3730 
3770  LDT-H1CLK (W, 4) : DT- (LZO IS+ALAD IS > 460/HSPD (LDT) +HTF (6,LDT) *HTF(7,LDT) 

3730  IF  C-CC  AND  W-WW  THEN  WSET- 1 : CC-O: WW-O: DS- 1 : CC1 -0: WW 1-0 
3790  GOSUB  3640 

3800  H1CLK (W,  2) -HOUR+DT i  H1CLK 'W , 3) -3: GOSUB  3400:G0T0  3990 
3810  IF  CJ2  THEN  3910 

3820  MC -SCH  ( W ,  2 )  t  FOR  1-1  TO  NHT  i  IF  H2CLKIW,  1*6)00  THEN  NCAR ( I ) -H2CLK (W . I *6 > : TYP 
-I 

3330  NEXT 

3840  IF  SCA (MC .II'JW  THEN  3360 

3830  SCA (MC, 7) « 1 : IF  MC-CA  THEN  FCH-HI:GOTO  3860  ELSE  MC-MC*1:G0T0  3840 
3860  LOT— H2CLK (W, 4) : DT- (LZDIS+ALAO IS) T60/HSPD (LDT) +HTF (6. LDT) +HTF(7,LDT> 

3870  IF  C-CC  and  W-WW  THEN  WSET- 1 : CC-O: WW-O: DS- 1 : CC 1-0: WW 1-0 
3880  GOSUB  3640 

3890  H2CLK (W.  2) -HOUR+DT: H2CLK  <W, 3) “3: GOSUB  3480 
3900  GOTO  3990 

3910  MN-SNH(W, 2) IFOR  1-1  TO  NHT: IF  H3CLK (W, 1*6) ? >0  THEM  NCAR ( I ) -H3CLK (W . 1*6) : TYP 

-I 

3920  NEXT 

3930  IF  SNA  (MN,  DOW  THEN  3930 

3940  SNA ( MN . 7 ) » 1 : IF  MN-NA  THEN  3930  ELSE  MN-MN* l : GOTO  3930 

3930  L0T-H3CLK (W.4) : 0T- (LZD IS*ALAD IS ) *60/HSPD (LDT) *HTF (6 . LDT ) *HTF ( 7 . LDT) 

3960  IF  C-CC  AND  W-WW  then  WSET-l : CC-O: WW-O: OS- 1 : CCl -0: WWl-0 
3970  GOSUB  9640 

3980  HTCLK (W. 2) »HOUR*OT : H3CLK  <W . 3) -3: GOSUB  3550 
3990  PAC-HE3T (LOT, TYP) -HOST (LDT, TYP' 

3992  IF  NCAR  ( TYP )  -:  PAC  THEN  4020 

4000  FOR  J-l  TO  3: FOR  K-l  TO  NHT: HOST (J ,K) -HE3T (J, K> : NEXT: NEXT 
4002  IF  DS- 1  THEN  GOSUB  7080 
4010  RETURN 

4020  RMFRC ’ -NCAR ( TYP ) /PAC 
4030  FOR  J-l  TO  3: FOR  K-l  TO  MHT 

4032  HOST (J.K) -HOST ( J, ).) *RMFRC 1  * (HEST < J. K> -HOST  ( J , K > ) 

4034  IF  HOST'J.K)  HEST(J.K)  THEN  HOST ( J , K ) -HEST ( J . ) ) 

4040  NEXT: NEXT 

4042  IF  DS-1  THEN  GOSUB  7080 
4030  RETURN 
403?  * 
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4060  ' HUNLD 

4070  IF  C:-:  GOTO  7360  ELSE  IF  CM  THEM  GOTO  7370  ELSE  M-SSHIW.2) 

4080  W-33AIM. 1 ) 

4090  FOR  1-1  TO  MHT: NCAR ( I ) -H1CLK <W. 1*6) : FOR  J=1  TO  3:F0R  K-l  TO  NLZ 

4092  DLABAT ( I , J , K) -0: NEXT: NEXT: NEXT 

4100  FOR  K-l  TO  NLZ : ZONE (K ) *0: NEXT 

4110  IF  35A (M, 1 )  -OW  THEM  4140  ELSE  I-SSA(M.3> 

4120  LDT-SSA<M.3> : DEST-SSA (M, 6) :  IF  DESTC-NLZ  THEN  4130  ELSE  PRINT"DEST" ; DEST : STO 
P 

4130  IF  ZNiDEST)  .'HOUR  THEN  H1CLK  (W,  2.'  -ZN  (DEST)  :  H1CLK  ( W.  3)  -3:  GOSUB  3400:RETURN  EL 
SE  DLABAT ( I , LDT, DEST) -DLABAT ( I ,  LOT,  DEST) +SSA (Mf  4) : ZONE (DEST) -1 : IF  M-TA  THEN  4140 
ELSE  M-M+l :  GOTO  4110 

4140  FOR  1-1  TO  NHT:  IF  NCARIDOO  THEM  L-I 
4130  NEXT 

4160  FOR  K-l  TO  NLZ: DTIME <K) -0: NEXT 

4170  FOR  K-l  TO  NLZ : FOR  J-l  TO  3:F0R  1-1  TO  NHT 

4180  IF  DLABAT ( I, J.KX-0  THEN  4190  ELSE  DLABAT ( I , J . K> -DLABAT < I . J . K> -HGF ( I ): DTIME 

( K ) -DT I ME ( K ) +HTF ( 1 , J ) +HTF (2, J ) +HTF (8,J):G0T0  4180 

4190  NEXT: NEXT: NEXT 

4200  ZTIME-O: FOR  K-l  TO  NLZ 

4210  IF  DTIME (K) XZTIME  THEN  ZTIME-DTIME (K> 

4220  NEXT : H1CLK (W, 2) -HOUR+ZTIME : H1CLK  <W,3)-4:F0R  K-l  TO  NLZ 
4222  IF  ZONE (K) -1  THEN  ZN <K> -H 1CLK (W, 2) 

4230  NEXT 

4240  ’PRINT  "Nr  of  H*1  a*  "  ;  H1CLK  ( W.  L+6) 

4230  GOSUB  3400: RETURN 
4260  RETURN 

4269  ’ 

4270  IF  CM  THEN  4490 
4280  FOR  TH-1  TO  NHT 

4290  IF  H1CLK  (Ul,  TH+6)  -0  THEN  4330 

4300  NH-H1CLK (W, TH+6) : IF  W>— TRNH1  THEN  4320 

4310  NH-1 1 »NH 

4320  AF ( TH ) — AP ( TH ) +NH 

4330  NEXT : H1CLK (W, 2) -LATE 

4340  ’ FRINT"H*l o  Pool" : AP ( 1 ) | AP (2> » AP (3) : AP ( 4) 

4330  IF  M-TA  THEN  F5H-HI 

4360  I VAL-O: J-0: FOR  1-1  TO  H5WAVE: IF  HiCLKt 1.0) '0  THEN  4380 
4370  J-J+l: IVAL-1: IF  J-l  THEN  FSH-SSH(I,2) 

4380  NEXT: IF  IVAL-0  THEN  GOSUB  3400: GOTO  4430 
4390  IF  OCHCK-2  AND  SSET-1  THEN  GOSUB  3400: RETURN 

4400  M— FSH:FSHOLD«FSH:W— SSA(M, l) : IF  UI-0  OR  HICLKIW.OXO  THEN  4470  ELSE  SSH(W.2>- 
FSH: FOR  1-1  TO  NHT: P ( I ) -AP ( I ) : NEXT 
4410  IF  SSA<M,1)<:W  THEN  4460 
4420  I-SSA(M,3) 

4430  IF  P(I):-SSA(M.4>  THEN  4430  ELSE  F3H-FSH0LD: GOSUB  3400 
4440  RETURN 

4430  P ( I ) -P ( I ) -55A ( M , 4 ) : I F  M-TA  THEN  4460  ELSE  M-M+l:GOTO  4410 

4460  H1CLKIW. 1 ) -W: H1CLK (W,  2! -HOUR: H ICLK (W, 3) -l : GOSUB  3400: FSH-M: RETURN 

4470  FSH-HI : GOSUB  3400 

4480  RETURN 

4490  IF  C::  THEN  4360 

4300  FOR  TH-1  TO  NHT 

4310  IF  H2CLK  (W, TH+6) — 0  THEN  4330 

4320  AP  I  TH )  -AP  '  TH )  +H2CLK  ( W .  TH+  6 ) 

4330  NEXT: H2CLK  04. 2) -LATE 
4340  IF  MC-CA  THEN  FCH-HI 
4330  GOSUB  3480: RETURN 

4360  FOR  TH-1  TO  NHT:  IF  H3CL1.  ■  W.  TH*6>  -0  THEN  4380 
4370  AP  < TH ) "AP 1TH) +H3CLK  04.  TH+6) 
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4530  NEXT: H3CLK <W, 2) -LATE 
4590  IF  MM-MA  THEN  FMH-HI 
4600  ALL-1 :G0SUB  “550: RETURN 

4609  ’ 

4610  DT-HTF <3. 1 ) +HTF (4. 1 ) + (LZD IS+ALAD IS) *60/HSPD( 1) 

4620  IF  CM  THEN  4690 

4630  M-SSH (W, 2) 

4640  33A <M, 7) -2: DEST-SSA  <M , 6) : PSH (DEST) -PSH ( DEST) +S3A <M.  2) : PASH-PASH+SSA (M. 2) 
4642  SFPH ! (DEST)-SFPH! (DEST) +SSA <M, 0) : SFASH ! -SFASH! +SSA (M,  0) : FF ! -SFASH ! /TWUV ! 
4644  IF  M-TA  THEN  4630  ELSE  M-M+1:IF  SSA(M,t)-W  THEN  4640 
4630  PR I NT "FASH  Total PASH: PRINT  "tim«:";H0UR 
4660  PR I NT " F I REPWR  ASHORE " ; SFASH !  ,  PF ! 

4664  PRINT  #2,  USING  "######.##";  HOUR;  PASH;  PF  ! 

4670  H1CLK  (W,  0) ”2 

4680  HI  CLK (W, 2) -DT +HOUR: H1CLK 'W,  3)  -3: G0SU8  3400: RETURN 
4690  IF  02  THEN  4750 
4700  MC-SCH(W,2) 

4710  SCA (MC,  7)  -  2: DEST-SCA (MC , 6) : PSH ( DEST) -PSH ( DEST) +SCA (IlC, 2) : PASH-PASH+SCA (MC. 2 
) 

4712  SFPH! (DEST) -SFPH! <DEST)+SCA (MC, 0) : SFASH ! -SFASH ! +SCA (MC, 0) : PF ! -SFASH ! /TWUV ! 

4714  IF  MC-CA  THEN  4720  ELSE  MC-MC+1:IF  SCA(MC,1)-W  THEN  4710 

4720  FRir.T"PASH  Total :" ;PASH: PRINT  "tl  mm:  "  j  HOUR 

4730  PRINT"F IREPWR  ASHORE" ) SFASH I , PF ! :H2CLK (W. 0) -2 

4734  PRINT  #2, USING  "######.##"; HOUR) FASH) PF 1 

4740  H2CLK (W, 2) -DT+HOUR: H2CLK (W, 3) -3: GOSUB  3480:RETURM 

4730  MN— SNH (W, 2) 

4760  SNA (MN, 7) -2: DEST-SNA (MN. 6) : PSH ( DEST ) -PSH ( DEST) +SNA (MN, 2) : PASH-PASH+SNA (MN. 2 
) 

4762  3FASH' -SF ASH ! +SNA (MN, 0 ) :PF' -SFASH ! /TWUV!  :  IF  MN-NA  THEN  4770  ELSE  MN-MN+1:IF 
SNA (MM. 1)-W  THEM  4760 

4770  FRINT"PASH  Total :") FASH: PRINT  "tim«:";HOUR 
4780  FR I NT "FI REPWR  ASHORE" j SFASH !, PF H3CLK (W, 0) -2 
4734  FRINT  #2, USING  "###### HOUR) PASH: PF 1 
4790  H3CLK (W. 2) -DT+HOUR: H3CLK (W, 3) -3: &OSUB  3360: RETURN 

4799  ' 

4800  FRINT"LSSORT" 

4810  T I ME-LATE :  FOR  W-l  TO  LSWAVE:  IF  L 1 CLK  ( W ,  2 )  -  T I  ME  THEN  4830 
4820  TIME-L1CLK (W, 2) : AC ODE -LI CLK (W, 3) :LWAVE-W 

4830  NEXT: IF  MCLOCK ( 4, 1 ) -LWAVE  AND  MCLOCK ( 4 , 2) -TIME  AND  MCLOCK ( 4, 3) “ACODE  THEN  4 
830 

4840  MCLOCK ( 4 , 2 ) -T IME : MCLOCK (4,1) -LWAVE : MCLOCK (4.3) -ACODE : L 1 CLK (LWAVE , 2) -HOLD 
4842  MCLOCK ( 4, 3) -2: MCLOCK ( 4, 6) -  1 : IF  ACODE-6  THEN  Lt CLK (WAVE, 2) -LATE 
4850  RETURN 

4860  ’ 

4861  ’ LC30RT 

4870  TIME-LATE: FOR  W-l  TO  LCWAVE: IF  L2CLK(W,2>  -TIME  THEN  4390 
4880  TIME-L2CLK (W, 2) : AC0DE-L2CLK (W, 3) :LWAVE-W 

4890  NEXT : IF  MCLOCK (3, 1) -LWAVE  AND  MCLOCK (3. 2) -TIME  AND  MCLOCK (3. 3) -ACODE  THEN  4 
910 

4900  MCLOCK (3. 2) -T IME: MCLOCK (3, 1 ) -LWAVE: MCLOCK (3.3) -ACODE :L2CLK (LWAVE, 2) -HOLD 
4902  MCLOCK (3,3) -2: MCLOCK (3.61—2: IF  ACODE-6  THEN  L2CLK (LWAVE. 2) -LATE 
4910  RETURN 

4920  ’ 

4921  ‘ LN50RT 

4930  TIME*LATE:FOR  W-l  TO  LNWAVE: IF  L3CLK (W, 2) ' -TIME  THEN  4930 
4940  TIME-L3CLK (W, 2) : ACODE -L3CLK (W, 3) : LWAVE-W 

4930  NEXT: IF  MCLOCK (6, 1 ) -LWAVE  AND  MCLOCK (6, 2) -TIME  AND  MCLOCK (6, 3) -ACODE  THEN  4 
??•:« 

4960  MCLOQ  <6, 2> -TIME: MCLOCK <6, 1) -LWAVE: MCLOa  (A, 7) -ACODE: L7CL>  (LWAVE, 2) -HOLD 
4962  MCLOCK <6, 3> «2:MCLOO  (6, 6) -7: IF  ACODE-6  THEN  L7CLK (LWAVE, 2) -LATE 
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4970  RETURN 
493'!'  ' 

49°0  L-NLT -t-NBT +NCT : FDR  1  =  1  TO  L 

4992  NCAR(I)=0:P!I+NHT)=AP(H-NHT) : NEXT: MCAR=0: IF  C>1  THEM  3120 
3000  IF  FSL>=HI  THEN  STOP 
5010  L3=SSL (W. 2) 

3020  IF  WOOD  THEN  5040  ELSE  L1CLK <W, 3) = 1 : L1CLK (W. 2> -HOLD 
3030  GOSUB  4800: RETURN 

5040  IF  SSS(LS,l)OW  THEN  3070  ELSE  I=SSS  <LS,  3)  -NHT 

3030  IF  P ( I +NHT ) < 3SS ( L3 , 4 ) THEN  L1CLK (W, 1 ) =W: L1CLK !W,  2) =HQUR+ 1 0: L 1CLK (W, 3) =1 : GOSU 
B  4800: RETURN 

3060  P  !  I +MHT )  =P  ( I +-NHT)  -S3S  (LS,  4 > :  NEAR  ( I  ) -NCAR  !  I )  +-SS3  (L3 , 4 )  : MCAR-MCAR+SSS  (L3.  4) 

3062  IF  LS=TS  THEN  3070  ELSE  LS=LS+ 1 :  GOTO  3040 

5070  L1CLK (W, 1 ) =W: L1CLK (W, 3) =2: FOR  1=1  TO  L 

3072  AP(I+NHT)=P(I+NHT) :L1CLK(W, I +6 > -NCAR < I > : NEXT 

3080  GOSUB  3320: IF  WD=0  THEN  CCC=1 : WWW=W: GSET-0 

3090  L1CLK (W, 0) =1 

3100  L1CLK (W, 2) =HOUR+DLTIME: FSL-L3:  IF  W-LSWAVE  AND  OCLCK-O  THEM  LC3ET=1: BEG0CL  =  1 
ELSE  IF  W=LSWAVE  THEN  NLSET * 1 : BEGMSL- 1 
3110  GOSUB  4300: RETURN 
3120  IF  02  THEN  3240  ELSE  LC=SCL(W,2) 

3130  IF  WDOO  THEN  3130  ELSE  L2CLK  <W.  3)  =  1 :  L2CLK  (W ,  2) -HOLD 
3140  GOSUB  4360: RETURN 

3130  IF  SCStLC,  DOW  THEN  3180  ELSE  I-SCS  (LC.  3)  -NHT 

3160  IF  P ( I +NHT) <SC3 (LC, 4 ) THEN  L2CLK (W.  1 > »W:L2CLK (W, 2) -HOUR+t 0: L2CLK (W, 3) =1 : GOSU 
B  4860: RETURN 

3170  P  ( I  ♦■NHT )  *P  <  I  +NHT)  — SC3  (LC,  4)  :  NCAR  ( I )  -NCAR  ( I )  +SCS  (LC.  4)  :  MCAR-MCAR+SCS  (LC,  4) 
3172  IF  LC-C3  THEN  3180  ELSE  LC-LC+1 : GOTO  3130 
3180  L2CLK(W, 1 ) =W:L2CLK (W, 3> =2: FOR  1=1  TO  L 

3182  AR ( I ♦NHT ) *P ( I +NHT ) : L2CLK ( W , I +6) -NCAR ( I )  :  NEXT : GOS'JB  5320: IF  WD=0  THEN  CCC-2: 
UIWW-W:  GSET-0 

3190  L2CLK (W. 2) -HOUR+OLTIME: FCL-LC: L2CLK (W, 0) =1 

3200  IF  W-LCWAVE  AND  OCLCK-2  AND  LLSET-1  THEM  LLSET-2: BEG3L- 1 

3210  IF  WOLCWAVE  THEN  3230 

3220  IF  OCLCK-2  AND  FSL<.'HI  THEM  LLSET-2:  BEGSL- 1  ELSE  NLSET- 1 : BEGNSL- 1 
3230  GOSUB  4860: RETURN 
3240  LN-SNL (W, 2) 

3230  IF  WDOO  THEN  3270  ELSE  L3CLK (W.  3) -1 : L3CLK (W. 2) -HOLD 
3260  GOSUB  4920: RETURN 

3270  IF  3NS(LN,l)<:w  THEN  3300  ELSE  I-SNS (LN.3) -NHT 

3230  IF  F ( I+NHT) <  SNS (LN, 4) THEN  L3CLK (W,  l ) =W: L3CLK (W . 2> -HOUR* 10: L3CLK ( W, 3) - 1 : GOSU 
B  4920: RETURN 

3290  F ( I +NHT) — F ( I +NHT ) -SNS ( LN . 4 )  :  NCAR  < I > -NCAR ( I ) +SN3 (LN , 4 ) : MCAR-MCAR+SNS ( LN. 4 ) 
3292  IF  LN-MS  THEN  3300  ELSE  LM-LN+1 : GOTO  3270 
3300  L3CLK (W. 1 ) -W: L3CLK (W, 3) *2: FOR  1=1  TO  L 

3302  AP ( I +NHT) =P ( I *NHT) : L3CLK (W , I +6> -NCAR ( I > : NEXT : GOSUB  3320: IF  WD=0  THEM  CCC=3: 
WWW-W: GSET-0 

3310  L7CLK <W, 2) -HOUR+OLTIME: FML-LN: L3CLK (W.O)-l : GOSUB  4920: RETURN 

33 1 9 

3320  PRINT"WELOEK":NS=WDST:DLTIME=0:  IF  NS'=MCAR  THEN  WDST-0  ELSE  WDST-WDST-MCAR 
3330  FOR  1=1  TO  NLT+NBT+NCT: IF  NCAR ( I ) ■  0  THEN  DTP ( I > =LTF (3. I )  ELSE  DTM ( I ) -0 
3340  NEXT: IF  HOST  — 0  THEN  5370 

1330  FOR  1-1  TO  NLT+NBT+NCT: IF  DTM < I > : OLTIME  THEN  DL TIME -DTM ( I ) 

3360  NEXT: RETURN 

3370  WO-O: NRES-O: FOR  1-1  TO  NLT+NBT+NCT: NRES-NRES+NCAR < I > 

3372  IF  N9CS-  NS  THEN  3380  ELSE  DLTIME-DLT IME+DTM ( I ! : NRES-NRE3-N3 
3330  NEXT 
5390  RETURN 
3399  • 


5400  DT =0: MCAR-O: IF  CM  THEN  5320  ELSE  L3=33L : W, 2 ) : FOR  1*1  TO  NLT+NBT+NCT : NCAR ! I 
)«L1CLK<W.  1+6)  :NEXT 

5410  IF  SS3CL3,  D-W  THEN  33S (L3. 7) -1 s IF  L3-TS  THEM  3430  ELSE  LS=L3+t:G0T0  3410 
5420  FOR  1-1  TO  MLTsIF  NCAR (IX >0  THEN  D-LODD ISI60/B3PD ( I ) +LTF ( 6 , I ) +LTF (7 , I) ! MCA 
R-MCAR+NCAR ( I )  ELSE  D=0 
3430  IF  D>DT  THEN  DT-D 
5440  NEXT 

3450  FOR  I *NLT ♦ 1  TO  MLT+NBT+NCT 

5432  IF  NCAR (IX >0  THEN  D-DLAD I3460/BSFD < I) +LTF < 6 , I ) +LTF (7 . I ) ! MCAR-MCAR+NCAR ( I ) 
ELSE  D-0 

3460  IF  SSL (W,  1 ) ' NHT +NLT +NBT  THEN  D-ASAD IS460/BSFD  ( I ) +CLZD I  St60/CSFD+LTF  (6-.  I  > +LT 
F<7.  I) 

3470  IF  d:dt  THEN  DT-D 
3480  NEXT 

3490  IF  SSL(U. 1) >NHT+NLT+NBT  THEM  I -NLT+NBT+NCT I DT-ASAD IS460/BSPD ( I ) +CLZD IS460/C 
3PD+LTF (6, I ) +LTF  (7,  I) 

3300  IF  C-CCC  AND  W-WWW  THEN  GSET- 1 s CCC-Os WWW-0) WD- 1 
3310  L1CLK <W, 2) -HOUR+DT : L1CLK (W, 3) -3» GOSUB  4800iG0T0  3760 

3320  IF  C'2  THEN  3640  ELSE  LC-SCL <W, 2) : FOR  1-1  TO  NLT+NBT+NCT: NCAR ( I ) -L2CLK  (W, 1  + 
6) : NEXT 

3330  IF  SCSILC,  1  >  «W  THEN  SCS <LC, 7) -  1 1 IF  LC-CS  THEN  3370  ELSE  LC-LC+1 : GOTO  3330 
3340  FOR  1-1  TO  NLT:  IF  NCARIDOO  THEN  D-LODD  I  S*60/BSFD  ( I )  +LTF  (6,  I )  +LTF  (7,  I )  :  MCA 
R-MCAR+NCAR < I )  ELSE  D-0 
3330  IF  D>DT  THEN  DT-D 
3360  NEXT 

3370  FOR  I-NLT+1  TO  NLT+NBT +NCT : IF  NCAR (IX >0  THEN  D-DLAD I S460/BSFD ( I ) +LTF  (6, I ) ♦ 
LTF  (7,1)1  liCAR-MCAR+NCAR  ( I )  ELSE  D-0 

3580  IF  3CL(W, 1) 'NHT+NLT+NBT  THEN  O-ASAD I S*60/BSPD ( I ) +CLZD ISt60/CSPD+LTF (6, I ) +LT 
F  (7,  I ) 

3590  IF  D)DT  THEN  DT-D 
5600  NEXT 

3610  IF  3CL<W. 1) ) NHTlNLT+NBT  THEN  I -NLT+NBT  +NCT I DT-ASAD IS *60/BSPD ( I ) +CLZD I S460/C 
SFD+LTF  <6, I ) +LTF (7 . I) 

5620  IF  C-CCC  AND  W-WWW  THEN  GSET- 1 > CCC-Ol WWW-0: WD- 1 

3630  L2CLK. (W, 2) -HOUR+DT JL2CLK <W, 3) -3) GOSUB  4860iG0T0  3760 

3640  LM-SNL (W, 2) i FOR  1-1  TO  NLT+NBT+NCTi NCAR < I ) -L3CLK (W. 1+6) I  NEXT 

3630  IF  SMS (LN, 1 ) -W  THEN  SNS (LM, 7) -1 1  IF  LN-liS  THEN  3690  ELSE  LN-LN+liGOTO  3630 

3660  FOR  1-1  TO  NLT 

3662  IF  NCARUK'O  THEN  D-LODD  I  S*60/ BSFD  !  I ) +LTF  <6 ,  I ) +LTF  ( 7 ,  I )  i  MCAR-MCAR+NCAR  ( I ) 
ELSE  D-0 

3670  IF  DrDT  THEM  DT-D 
3680  NEXT 

3690  FOR  I-NLT+1  TO  NLT+NBT+NCT 

3692  IF  NCAR ( I )  ' 0  THEN  D-DLAD ISI60/BSFD ( I > +LTF (6 , I ) +LTF ( 7 , I >: MCAR-MCAR+NCAR ( I ) 
ELSE  D-0 

3700  IF  O' DT  THEN  DT-D 
3710  NEXT 

3720  IF  3NL(W,1)  NHT+NLT+NBT  THEN  I -NLT+NBT+NCTi DT-ASAD IS *60/ BSPD  < I ) +CLZD IS*60/C 
SFD+LTF (6, I ) +LTF ( 7 , I) 

3730  IF  DSDT  THEN  DT-D 

3740  IF  C-CCC  AND  W-WWW  THEN  GSET- 1 >  CCC-Ol WW14-0I WD- l 
3730  L3CLK (W, 2) -HOUR+DT j L3CLK (W, 3) -3jG0SUB  4920 

3760  SFAC-WEST-WDSTj IF  MCAR  SPAC  THEN  WDST-WDST+MCAR  ELSE  WDST-WEST 
3770  IF  WDST' WEST  THEN  WDST-WEST 
3730  RETURN 
3739  • 

3790  L-NLT+NBT+NCT 

3300  IN-NNB+NCLZ: IF  C'2  THEN  6000  ELSE  IF  CM  THEN  3910  ELSE  L3-SSL(W.2) 

3810  FOR  IM  TO  L: NCAR ( I ) -L1CLF (W, I +6 ) : NEXT : L1CLF (W, 0) - 1 
3320  FOR  1-1  TO  L: FOR  K-l  TO  ZNs DBAT ! I , r ) -0: NEXT* NEXT 
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5930  FOR  K-l  TO  ZN: LZONE <K> -Os  NEXT 

5040  IF  SS3  !L5,  1 )  '  W  THEN  5070  ELSE  I-SSS  (L3, 3)  -NHT 

5850  DEST»SS3(LS. A) : IF  LIN'DEST) >HOUR  THEN  L1CLK (W. 2) -LZN (DEST ) : LI CLK (W,  3) -3: GOS 
UP  4000: RETURN 

5860  DBAT ( I , DEST) -DBAT ( I , DEST ) +S3S (LS. 4) : LZONE (DEST) -1 
5062  IF  LS-T3  THEN  5870  ELSE  L3-LS+1 :  GOTO  5840 
5870  GOSUB  6090 

Se80  LI CLK (W,  2) -HOUR+ZTIME: LI CLK (W, 3) -4: FOR  K-l  TO  ZN 
5882  IF  LZONE (K>»1  THEN  LZN (K> -LICLK (W, 2) 

5890  NEXT : PRINT "NR  OF  CRAFT” ; L 1 CLK (W, LL+6) 

5900  GOSUB  4800: RETURN 
5910  LC-SCL<W,2) 

5920  FOR  1-1  TO  L:NCAR(I)-L2CLK(W, 1+6) :FOR  K-l  TO  ZN 
5930  IF  SC3(LC,  1X5W  THEN  5960  ELSE  I-SCS  (LC,  3) -NHT 

5940  DEST-SCS (LC, 6) : IF  LZN (DEST) >HOUR  THEN  L2CLK (W, 2) -LZN (DEST ) : L2CLK (W, 3) -3: GOS 
UB  4860: RETURN 

5950  DBAT (I .DEST) -DBAT (I .DEST) +SCS(LC.4> : LZONE (DEST )- 1 
5952  IF  LC-CS  THEN  5960  ELSE  LC-LC+1:G0T0  5930 
5960  GOSUB  6090 

5970  L2CLK (W, 2) -HOUR+ZTIME: L2CLK (W, 3) -4: FOR  K-l  TO  ZN 
5972  IF  LZONE (K) -1  THEN  LZN (K) -L2CLK (W, 2) 

5980  NEXT : PRINT”NR  OF  CRAFT" j L2CLK (W, LL+6 ) 

5990  GOSUB  4860: RETURN 

5992  DBAT(I.K) -0: LZONE (K) -0: NEXT: NEXT: L2CLK (W, 0) - 1 
6000  LN-SNL (W, 2 ) 

6010  FOR  1-1  TO  L: NCAR ( I ) -L3CLK (W, 1+6) : FOR  K-l  TO  ZN 
6012  DBAT (I, K) -0: LZONE (K) -0: NEXT: NEXT :L3CLK (W, 0) -  1 
6020  IF  SMS (LN. l)<:w  THEN  6050  ELSE  I-SNS (LN, 3) -NHT 

6030  DEST -SNS (LN. 6 ) : IF  LZN (DEST) : HOUR  THEN  L3CLK (W. 2) -LZN (DEST) : L3CLK (W, 3) -3: GOS 
UB  4920: RETURN 

6040  DBAT ( I , DEST) -DBAT ( I . DEST) +SNS (LN, 4) : LZONE (DEST) -1 
6042  IF  LN-MS  THEN  6050  ELSE  LN-LN+1:GOTO  6020 
6050  GOSUB  6090 

6060  L3CLK (W, 2) -HOUR+ZTIME: L3CLK (W, 3) -4: FOR  K-l  TO  ZN 
6062  IF  LZONE (K) -1  THEN  LZN (K) -L3CLK (W. 2) 

6070  NEXT : FRINT"NR  OF  CRAFT" j L3CLK (W, LL+6 ) 

6080  GOSUB  4920: RETURN 

6090  FOR  1-1  TO  L:  IF  NCARdlCO  THEN  LL-I 
6100  NEXT : FOR  K-l  TO  ZN: DTI  ME (K) -0: NEXT 
6110  FOR  K-l  TO  ZN: FOR  1-1  TO  L 

6120  IF  DBAT ( I , K>  < -0  THEN  6130  ELSE  DBAT ( I . K) -DBAT ( I , K> -LGF ( I > : DTIME (K> -DT IME !K> 
+LTF ( 1 , I ) +LTF (2, I ) +LTF (8, I) :GOTO  6120 
6130  NEXT: NEXT 

6140  ZTIME-O: FOR  K-l  TO  ZN: IF  DT I ME (K>  ZTIME  THEN  ZTIME-DTIME (K> 

6150  NEXT: RETURN 

6159  • 

6160  DT-O: ZN-NNB+NCLZ: ZIG-O: ZIGNAL»0:FOR  I»l  TO  NLT+NBT+NCT 
6162  ZAVE  ( I )  -0:  NEXT :  IF  CCl  THEN  6320 

6170  LS-SSL (W, 2) 

6130  3SS (LS. 7) -2: DEST-SSS (LS. 6) : PSH (DEST > -PSH (DEST) +SSS (LS.2) : PASH-PASH+SSS (LS. 2 
) 

6132  SFPH 1 (DEST)-SFPH' (DEST) +SSS (LS. O) : SF ASH ' -SF ASH ' +SSS (LS, 0) : PF ' -SFA3H • /TWUV 1 

6184  IF  SSS (LS, 3) < -NHT  +NLT  THEN  ZIGNAL-l  ELSE  ZAVE (SSS (LS, 3) -NHT) -  1 

6190  IF  SSS (LS, 3) INHT+NLT+NBT  THEN  ZIG-l 

6200  IF  L3-TS  THEN  6220 

6210  LS-LS* 1 : IF  SSS(LS,1)»W  THEN  6130 

6220  PR  I NT "PASH  Total : " : FASH: FR I  NT  "time:": HOUR 

6230  PRINT-FIREPWR  ASHORE SF ASH ', FF ' 

6234  PRINT  »2, USING  ”»»#•##.  tMt”  ;  HOUR:  FASH:  PF  ! 

6240  IF  ZIGNAL-l  then  6300 
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6230  IF  ZIG-1  THEN  I -NLT+NBT+NCT: DT-LTF (3. I ) +LTF ( 4. I ) +A5ADI3460/B3PD ( I ! +CLZDI ST6 

0/C3FD: GOTO  6290 

6260  FOR  I-i  TO  NLT+NBT+NCT 

6262  IF  ZAVE(I)»0  THEN  6290  ELSE  D=LTF (3, I ) +LTF (4,1) +DLADIST60/BSPD ( I ) 

6270  IF  D>DT  THEN  DT-D 
6280  NEXT 

6290  L 1CLK (W,  2) -HOUR+DT : L 1CLK (W, 3) -3: GOTO  6310 

6300  L1CLK (W, 2) "LATE 

6310  L1CLK (W. 0) -2: GOSUB  4B00» RETURN 

6320  IF  02  THEN  6480 

6330  LC-SCL(W.2> 

6340  SCS (LC, 7) -2: PASH-PASH+SCS (LC, 2) !  SEASH-SEASH+SCS (LC. 3) : SFASH ! -SFASH 1 +SCS (LC. 
0)  s FF 1 -SFASH 1 /TWUV 1 

6342  IF  5CS(LC,3><»NHT+NLT  THEN  ZIGNAL-1  ELSE  ZAVE  (SCS (LC.3) -NHT>»1 

6330  IF  SCS(LC,3) 'NHT+NLT+NBT  THEN  ZIG-l 

6360  IF  LC-C3  THEN  6380 

6370  LC«LC+1:IF  SCS(LC.1)-W  THEN  6340 

6380  PRINT  "PASH  Total ! ''  J  PASH:  PRINT  "t  i  ma:  *  :  HOUR 

6390  PRINT  "FI  REFUIR  ASHORE"  J  SFASH  !,  PF 1 

6394  PRINT  #2. USING  "*#####.##” }HOUR» PASH; PF ! 

6400  IF  ZIGNAL-1  THEM  6460 

6410  IF  ZIG--1  THEN  I -NLT+NBT+NCT: DT-LTF (3,  I > +LTF ( 4 , I > +ASAD IS*60/BSPD ( I > +CLZD IS*6 
0/C3PD: GOTO  6430 

6420  FOR  1-1  TO  NLT+NBT+NCT s IF  ZAVE ( I > -0  THEN  6440  ELSE  D-LTF (3, I ) +LTF (4 , I ) +DLAD 
IS460/BSP0 ( I ) 

6430  IF  DJDT  THEN  DT-D 
6440  NEXT 

6430  L2CLK (W, 2) -HOUR+DT sL2CLK (W. 3) -3:  GOTO  6470 

6460  L2CLK iW, 2) -LATE 

6470  L2CLK  !W.  0)  -2s  GOSUB  4960:RETijRN 

6480  LM-SML (W, 2) 

6490  SNS (LN, 7) -2: PASH-PASH+SNS (LN, 2) : EASH-EASH+SNS (LN, 3 > i SFASH ' -SFASH ! +SNS (LN. 0) 
I PF! -SFASH! /TWUV' 

6492  IF  SNS (LN, 3) ' — NHT +NLT  THEN  ZIGNAL-l  ELSE  ZAVE (SNS (LM. 3> -NHT) -1 

6300  IF  SNS (LN, 3) 'NHT+NLT+NBT  THEN  ZIG-1 

6310  IF  LN-MS  THEN  6330 

6320  LN-LN+ 1 J IF  SNS(LM.1)-W  THEN  6490 

6330  FRINT"FASH  Total  : " J PASHj PR INT  " t i m«. " j HOUR I DT — 0 

6340  PR INT"F IREFWR  ASHORE" ; SFASH PF 1 

6344  FRINT  #2. USING  "##•###.##"  jHOURl  PASH;  PP 

6330  IF  ZIGNAL-1  THEN  6610 

6360  IF  ZIG-1  THEN  I -NLT+NBT+NCT j  DT-LTF (3. I ) +LTP (4. I ) +ASADIS*60/BSPD ( I ) +CLZDIS*6 

O/CSPDi GOTO  6600 

6370  FOR  1-1  TO  NLT+NBT+NCT 

6372  IF  ZAVE (I) -0  THEN  6390  ELSE  D-LTF (3. I) +LTF < 4 . I > +PLADI 3160/BSPD < I > 

6380  IF  DDT  THEN  DT-D 
6390  NEXT 

6600  L3CLK (W. 2i -HOUR+DT iL3CLK (W,  3) -3 J  GOTO  6620 

6610  L3CLK (W. 2) -LATE 

6620  L3CLK(W.0> -2s GOSUB  4920: RETURN 

6629  ’ 

6630  IF  C;i  THEN  6810 

6640  FOR  TB-l  TO  NLT+NBT+NCT: IF  L1CLK <W, TB+6! -0  THEN  6680 
6630  NB-L1CLK (W, TB+6) : IF  W>TRNS1  THEN  6670 
6660  NB-.8TNB 

6670  AP (TB+NHT) -AP (TB+NHT) +NB 
6630  NEXT: L1CLK (W, 2) -LATE 
6692  IF  NCT-0  THEN  PRINT 

6700  IF  W-L3NAVE  THEN  GOSUB  4800: RETURN  ELSE  GOTO  6720 
6710  IF  SSL (W. 1 )  NHT+NLT+MBT  THEN  6740 


19a 


6720  W-W+t :  IF  WL3WAVE  THEN  6800 

6730  IF  LICLK (W. 0> "0  THEN  FSL-3SL <W, 2) : GOTO  6710  ELSE  6720 
6740  FOR  I-l  TO  NLT+N6T+NCT: P ( I+NHT ) -AP ( I +NHT) s NEXT 
6730  IF  3SS(L3,IK.'W  THEN  6790 

6760  I-3S3 (L3, 3) -NHT : IF  P ( I+NHT) >SSS (LS, 4> THEN  6780 
6770  RETURN 

67E0  P  ( I +NHT) -P  ( I +NHT) -SSS(LS,4): IF  LS-TS  THEN  6790  ELSE  LS-LS  +  l:GOTO  6730 
6790  LICLK (W, 1 > -Wi LICLK (W, 2) -HOUR! LICLK (W, 3) -I i Q0SU8  48001 FSL-LSj RETURN 
6800  FSL-Hl! GOSUB  4800! RETURN 
6810  IF  02  THEN  6960 

6820  FOP.  TB-t  TO  NLT+NBT  +NCT i IF  L2CLK (W, TB+6) -0  THEN  6840 
6820  AP ( TB+NHT ) -AP ( TB+NHT ) +L2CLK ( W , TB+6) 

6840  NEXT i L2CLK (W, 2) "LATE 
6830  IF  LC-CS  THEN  FCL-HI 
6860  IF  W-LCWAVE  THEN  GOSUB  4860i RETURN 

6870  LC«FCL:W«SCS (LC, 1 ) ! IF  W-0  THEN  6950  ELSE  IF  SCL <W, l > : NHT+NLT+NBT  THEN  6890 
6830  W-W+l : FCL-SCL (W, 2) : GOTO  6870 

6990  FOR  I«l  TO  NLT+MBT+MCT ! P ( I +NHT) -AP ( I+NHT ; i NEXT 
6900  IF  SCS  (LC,  DON  THEN  6940 

6910  I -SCS (LC, 3) -NHT : IF  P ( I +NHT) >-SCS (LC, 4) THEN  6930 
6920  RETURN 

6930  P ( I+NHT  >  »F ( I +NHT) -SCS (LC , 4  > i IF  LC-CS  THEN  6940  ELSE  LC-LC+l:GOTO  6900 
6940  L2CLK <W. I ) -WiL2CLK (W, 2) -HCURi L2CLK (W,  3) - 1 l GOSUB  4860! FCL-LC: RETURN 
6930  FCL-HI i GOSUB  4860l RETURN 
6960  FOR  TB-1  TO  NLT+NBT+NCT 

6962  IF  L3CLK (W, TB+6) < >0  THEN  AP (TB+NHT) -AP (TB+NHT) +L3CLK (W. TB+6) 

6970  NEXT i L3CLK (W, 2) -LATE 
6980  IF  LN-MS  THEN  FML-HI 

6990  IF  W-LNWAVE  THEN  RETURN  ELSE  LN-FML ! W-SNS (LN, l > 

7000  IF  W-0  THEN  7070  ELSE  IF  SNL (W, 1 ) 'NHT+NLT+NBT  THEN  7020 
7010  W— W+ 1 i FML-SNL (W, 2) i GOTO  7000 

7020  FOR  1-1  TO  NLT+NBT+NCTiP(I+NHT)«AP(I+NHT)!NEXT 
7030  IF  SNSfLN.DOW  THEN  7060 

7040  I-SNS  <LN, 3> -NHT i IF  P < I +NHT) <SNS (LN, 4) THEN  RETURN 

7030  P( I+NHT)-P(I+NHT)-SNS(LN. 4) I  if  LN-MS  THEN  7060  ELSE  LN-LN+liGOTO  7030 
7060  L3CLK (W. 1 )-Wi L3CLK (W, 2) -HOUR! L3CLK (W, 3) - 1 ! GOSUB  4920! FML-LN! RETURN 
7070  FML-HI l GOSUB  4920: RETURN 

7079  • 

7080  WSET-Oi J-l 

7090  CVAL-Ol FOR  1-1  TO  HSWAVEl IF  HICLK(I,3>>1  THEN  7120 
7100  HtCLK ( l , 3) -l ! HtCLK (1,2) -HOUR+J : IF  J-l  THEN  K-I 
7110  J-J+3l CVAL- 1 

7120  NEXT! IF  K1HSWAVE  OR  QVAL-0  THEN  7170 

7130  IF  MCLOCK ( 1 . 3>-l  OR  MCLOCK ( 1 , 3) -6  THEN  7160 

7140  IF  HtCLK (K, 2>  MCLOCK (1,2) THEN  7t70 

7130  HWAVE-MCLOCK (1.1) 1 HICLK (HWAVE. 2) -MCLOCK (1,2) 

7132  ■ PRINT"Sch*d  W*v»" ! HWAVEl "  Tt mm“ i HtCLK (HWAVE. 2) 1 "  Cod*” ! HICLK (HWAVE. 3) 

7160  GOSUB  3400 

7170  WSET -0! IF  FCH-HI  THEN  7280 
7180  IF  CVAL- 1  ANO  OCHCK-O  THEN  RETURN 
7190  IF  OCHCK-2  ANO  SSET-0  THEN  7290 

7200  CVAL-Ol FOR  1-1  TO  HCWAVEi IF  H2CLK(I.3>M  THEN  7230 
7210  H2CLK ( I , 3) -1 i H2CLK (1,2) -HOUR+J ! IF  J-l  THEN  K-t 
7220  J-J+SlCVAL-l 

7230  NEXT:  IF  K.'HCWAVE  OR  CVAL-0  THEN  7280 

7240  IF  MCLOCK (2. 3) -1  THEN  7270 

7230  IF  H2CLK (K, 2)  MCLOCK (2. 2) THEN  7290 

7260  HWAVE -MCLOCK (2. 1 ) ! H2CLK (HWAVE. 2) -MCLOCK (2. 2 > 

7262  ' PRINT"On-Cj!l 1  W«v*“ i HWAVEs “  Ti mm" i H2CLK (HWAVE. 2) ! "  Cod*" : H2CLK (HWAVE. 3; 
7270  GOSUB  3480 
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7230  WSET -0 : IF  FMH-HI  OR  HNWAVE-0  THEM  RETURN 
7290  CVAL-OiFOR  1  =  1  TO  HNWAVE: IF  H3CLK ( 1 . 3  >  M  THEM  7320 
7300  H3CLK  < 1 . 3) “1 i H3CLK (1,2) -HQUR+Jj  IF  J-l  THEN  K»I 
7310  J-J+SiCVAL-l 

7320  NEXT!  IF  (."  HNWAVE  OR  CVAL-0  THEN  RETURN 

7330  IF  MCLQCK (3, 3) “1  THEN  7360 

7340  IF  H3CLK (K,  2)  M1CL0CK (3,2) THEN  RETURN 

7330  HWAVE-MCL0CK(3, 1 ) irl3CLK(HWAVE,2)-HCL0CK(3,2> 

7360  GOSUB  3330 « RETURN 
7370  HC-SCH(W,2) 

7380  W-SCA(HC.l) 

7390  FOR  1-1  TO  NHTj NCAR ( I ) -H2CLK <W. 1+6) I  FOR  J-l  TO  3:F0R  K-l  TO  NLZ 

7392  DLA8AT(I ,J,K> -OiNEXT! NEXT (NEXT 

7400  FOR  K-l  TO  NLZ ! ZONE (K) -Ol NEXT 

7410  IF  SCA(MC,t)OW  THEN  7430  ELSE  I-SCA(HC.3> 

7420  LOT -SCA (MC , 3) ! OEST-SCA  <HC, 6) ! IF  ZN (DE5T)  >HOUR  THEN  H2CLK (W. 2) -ZN (DEST) i H2CL 
K (W, 3) -3! GOSUB  3480 1  RETURN  ELSE  DLABAT ( J , LDT , DEST ) -OLABAT ( I , LDT, DEST) +5CA (MC, 4) : 
ZONE (OEST) ■ 1 ! IF  MC-CA  THEN  7430  ELSE  MC-MCM !  GOTO  7410 
7430  FOR  1-1  TO  NHTt  IF  NCAR(I)O0  THEN  L-I 
7440  NEXT 

7430  FOR  K-l  TO  NLZ ! DTIME (K) -Ol NEXT 

7460  FOR  K-l  TO  NLZ (FOR  J-l  TO  3t FOR  1-1  TO  NHT 

7470  IF  OLABAT ( I, J.KX-0  THEN  7480  ELSE  DLABAT ( I . J, K) -DLABAT ( I , J, K) -HGF ( I > t DTIME 

(K) -DTIME (K) *HTF ( 1 , J) +HTF (2, J) +HTF (8, J) ! GOTO  7470 

7480  NEXT! NEXT! NEXT 

7490  ZTIME-OiFOR  K-I  TO  NLZ 

7300  IF  DTIME (K) >ZTIME  THEN  ZTIME-OTIME (K) 

7310  NEXT! H2CLK (W,  2> -HOUR+ZTIME ! H2CLK.  (W,  3) -4i FOR  K-l  TO  NLZ 
7312  IF  ZONE (K) -I  THEN  ZN (K) -H2CLK (W. 2> 

7320  NEXT 

7330  ’PRINT  "Nr  of  H»lo«" | H2CLK (W, L+6) 

7340  GOSUB  3480! RETURN 
7330  RETURN 
7360  MN— SNH ( W, 2) 

7370  W-SNA (MN, 1 ) 

7380  FOR  1-1  TO  NHTiNCAR ( I ) -H3CLK  <W. I +6) ! FOR  J-l  TO  3lF0R  K-t  TO  NLZ 

7382  DLABAT ( I , J , K) -Ol NEXTi NEXT i NEXT 

7390  FOR  K-l  TO  NLZ! ZONE(K) -OiNEXT 

7600  IF  SNA (MN,  1  >  <  >  W  THEN  7620  ELSE  I-SNA(MN,3> 

7610  LDT-SNA (MN, 3) i DE5T-SNA (MN,  6 )  !  IF  ZN ( DEST >/ HOUR  THEN  H3CLK (W, 2) - ZN (DEST) ! H3CL 
K (W, 3) -3! GOSUB  3330! RETURN  ELSE  DLABAT ( I . LDT, DEST) -DLABAT ( I . LDT. DEST) +SNA (MN, 4) : 
ZONE (DEST)- li IF  MN-NA  THEN  7620  ELSE  HN-MNM ! GOTO  7600 
7620  FOR  1-1  TO  NHTiIF  NCAR ( I ) < I 0  THEN  L-I 
7630  NEXT 

7640  FOR  K-l  TO  NL Z 1 DT I ME ( K ) -0 1 NE X T 

7630  FOR  K-l  TO  NL Z ! FOR  J-l  TO  3lF0R  I-t  TO  NHT 

7660  IF  DLABAT (I, J.KX-0  THEN  7670  ELSE  DLABAT ( I . J, K> -DLABAT ( I . J. K> -HGF ( I >! DTIME 

(K> -OTIME (K> *HTF ( I , J) +HTF ( 2, J) +HTF (8, J) ! GOTO  7660 

7670  NEXT! NEXT! NEXT 

7680  ZTIME-Oi FOR  K-l  TO  NLZ 

7690  IF  DTIME (K> >ZTIHE  THEN  ZT IME-DT I  ME (K > 

7700  NEXT 1H3CLK (W, 2> -HQUR*ZTIME! H3CLK (W,  3) -4i FOR  K-l  TO  fJLZ 
7702  IF  Z0NE(K)-1  THEN  ZN (K ) -H3CLK (W, 2) 

7710  NEXT 

7720  ’PRINT  "Nr  of  H»lo»” !H7CLK (W.L*6> 

7730  GOSUB  7330i RETURN 
7740  RETURN 
7749  ’ 

7730  PRINT"3T0CH" i BEGOCH-Oi IF  OCHCV -2  THEN  RETURN 
"60  IF  OCHC!  -■*  THEM  FCH-liGOTO  T’O 
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7770  FOR  1-1  TO  HCWAVEt IP  H2CLK<1.3>-6  THEM  H2CLK ( I . 3) -1 : H2CLK ( 1 . 1 ) -1 
7730  NEXT! GOTO  7310 

7790  0C3ET -Os  FOR  1-1  TO  HCWAVE: IP  H2CLK ! 1 . 0) -0  THEN  H2CLK ( I . 1 ) =1 : H2CLK < 1 . 2) -HOLD 
; H2CLK  ( 1 . 7)  -l 
7800  NEXT 

7810  GOSUB  7080*.  RETURN 

7819  J 

7820  PRINT"STNSH" : FMH- 1 : BEGNSH-Oi NSSET-0 

7830  FOR  1-1  TO  HNWAVE: H3CLK 1 1 , t> -I : IF  H3CLK<1,0)»0  THEN  H3CLK 1 1 , 2) -HOLDt H3CLK 1 1 

,3)-l 

7340  NEXT 

7830  GOSUB  7080t RETURN 
7839  ’ 

7860  FRINT"3TSH":BEGSH-0 
7870  FOR  1-1  TO  HSWAVE 

7872  IF  HICLK ( 1 . 0 ) -0  THEN  HICLK < I . 1) -I iHICLK ( I , 2) -HOLDiHICLKU , 3) -1 ! FRINT”H1CLK t 
I. 1 > " {HICLK ( 1 . 1) , "HICLK (1,3) "{HICLK (I, 3) 

7880  NEXT 

7890  GOSUB  7080i RETURN 

7899  ’ 

7900  PRINT"HALTSH":SSET-1 
7910  FOR  1-1  TO  HSWAVE 

7°12  IF  HICLK ( I , 0) -0  THEN  HICLK ( I . 1 ) -I : HICLK < I . 2) -HOLDlHlCLK ( I , 3) -6i PR 1NT"H1CLK ( 
1,1)" ; HICLK (1,1), "HICLK (1,3) "{HICLK (1,3) 

7920  NEXT! RETURN 

7929  ’ 

7930  PRINT "BESTART":GSET-Ol J- 1 s IF  FSL-HI  THEN  8020 

7940  CVAL-Ol FOR  1-1  TO  LSWAVEi IF  LtCLK ( I ,3) <M  THEN  7970 
7930  L 1CLK (1,2) -HOUR*J i IF  J-l  THEN  K-I 
7960  J-J*3lCVAL-l  . 

7970  NEXT! IF  KOLSWAVE  OR  CVAL-0  THEN  8020 

7980  IF  MCLOCK (4, 3) -t  OR  MCLOCK ( 4 , 3 > -6  THEN  8010 

7990  IF  L 1CLK ( K , 2 ) ' MCLOCK (4,2) THEN  3020 

8000  LWAVE -MCLOCK (4, 1 ) i L 1CLK (LWAVE, 2) -MCLOCK ( 4 . 2 ) 

8002  PRINT"Sch*d  Wavd" ;LWAVE) "  Ti md" { L 1CLK (LWAVE. 2) i "  Codd" { LICLK (LWAVE, 3) 

8010  GOSUB'  4800 

8020  GSET-O! IF  FCL-HI  THEN  3120 
8030  IF  OCLCK-2  AMD  LLSET-0  THEN  3120 

8040  CVAL-Ol  FOR  1-1  TO  LCWAVEi  IF  L2CLK  (1,3)01  THEN  8070 
3030  L2CLK (1,2) -HOUR*Ji IF  J-l  THEN  K-I 
8060  J-J+3i CVAL" t 

8070  NEXT! IF  K‘ LCWAVE  OR  CVAL-0  THEN  8120 

8080  IF  MCLOCK (3, 3) -l  THEN  8110 

3090  IF  L2CLK (K, 2)  MCLOCK (3, 2) THEN  8120 

3100  LWAVE -MCLOCK (3, l) ! L2CLK (LWAVE. 2) -MCLOCK (3.2) 

8102  FRINT"On-Cal  1  Wavd"iLWAVE: "  Ti«d" {L2CLK (LWAVE. 2) l "  Codd" I L2CLK (LWAVE. 3) 

8110  GOSUB  4060 

8120  GSET-O! IF  FML-HI  OR  LNWAVE-0  THEN  RETURN 
8130  CVAL-Ol FOR  1-1  TO  LNWAVEi IF  L3CLK ( I , 3) ' M  THEN  3160 
8140  L3CLK (1,2) -HOUR+J i IF  J-t  THEN  K-I 
3130  J»J*3i CVAL- 1 

8160  NEXT! IF  HCLNWAVE  OR  CVAL-0  THEN  RETURN 

8170  IF  MCLOCK (6, 3) -l  THEN  8200 

8130  IF  L3CLK(K,2) 'MCLOCK (6, 2) THEN  RETURN 

8190  LWAVE-MCLOCK (6, 1) IL3CLK (LWAVE, 2) -MCLOCK (6. 2) 

9200  GOSUB  4920i RETURN 

3210  FR 1NT"ST0CL“ ! BEGOCL-Oi IF  OCLCK-2  THEN  RETURN 
8220  IF  OCLCK-O  THEN  FCL-1:G0T0  8230 

3230  FOR  1-1  TO  LCWAVE: IF  L2CU  (1.71-6  THEM  L2CLK ( I . 3) -li L2CLK ( l . 1 ) - 1 
8240  NEXT: GOTO  8270 
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9230  LC3ET-0:F0R  1-1  TO  LCWAVE: IF  L2CLK ( I . 0 > -0  THEN  L2CLK ( I . 1 ) -I : L2CLK ( I . 0) -HOLD 
: L2CLK  < 1 ,3) “l 
9260  NEXT 

9270  GOSUB  7930: RETURN 
9279  ' 

9290  FRINT"STNSL" : FML- 1 :  BEGNSL-O:  NL.SET-0 

9290  FOR  1-1  TO  LNWAVE: L3CLK ( I , 1 ) -1 : IF  L3CLK ( I , 0) “O  THEN  L3CLK ( I , 2) -HOLD: L3CLK < I 
.  3) -1 
9300  NEXT 

9310  GOSUB  7930: RETURN 

9319  ’ 

9320  PRINT"STSL'' :  BEGSL-0 
9330  FOR  1-1  TO  LSWAVE 

9332  IF  LI  CLK ( I , 0) -0  THEN  L1CLK (1,1) -1: L1CLK (1,2) -HOLD: L1CLK ( I , 3) -1 : PR I NT "LI CLK ( 
I, 1>";L1CLK(I, 1), "LICLK (1,3) ” ;LICLK ( I ,3) 

9340  NEXT 

9330  GOSUB  7930: RETURN 
9339  ’ 

9360  PRINT" HALTSL ” : LLSET - 1 
9370  FOR  1-1  TO  LSWAVE 

9372  IF  L 1 CLK ( I , 0 ) -0  THEN  LICLK (1,1) -I :L1 CLK (1,2) -HOLD: LICLK (1,3) -6: PR I NT "LICLK ( 
1,1) ” : L 1 CLK ( I , l) , "L1CLK (1,3) ") LICLK (I, 3) 

9390  NEXT: RETURN 

9399  ' 

9390  FOR  J-l  TO  3:F0R  K-l  TO  NHT: WHOST (J . K> -HOST (J, K> : NEXT: NEXT 

9400  IF  CC1>1  THEN  9480 

9410  IF  H1CLK (WW1 ,2) -HOLD  THEN  RETURN 

9420  HACLK-H1CLK ( WW1 , 2 ) : NCAR ( WTYP) -H1CLK ( WW1 , WTYP+6) : GOSUB  9710 
9430  IF  NS-0  THEN  DLTIME-100 

9440  HBCLK-HOUR+OLTIME: IF  HACLK<-HBCLK  THEN  WDS-1:G0T0  9620 
9430  FOR  J-l  TO  3l FOR  K-l  TO  NHT 

8432  HOST  ( J ,  K)  -WHOST  ( J ,  K )  i  NEX T :  NEXT :  HI t:LK  ( WW 1 , 2 )  -HBCLK 

8460  PRINT  HACLKjHBCLKl IF  MCLOCK ( 1 , 1 ) -WW l  THEN  MCLOCK ( 1 , 2) -HBCLK 

8470  GOTO  8620 

8480  IF  CC 1 :2  THEN  8360 

8490  IF  H2CLK (WW1 , 2) -HOLD  THEN  RETURN 

8300  HACLK-H2CLK (WW1 , 2) : NCAR (WTYP) -H2CLK (WWl , WTYP+6) iGOSUB  S710 
8310  IF  NS-0  THEN  DLTIME-100 

8320  HBCLK -HOUR *DL TIME: IF  HACLKC -HBCLK  THEN  WDS-1:G0T0  9620 
8330  FOR  J-l  TO  3: FOR  K-l  TO  NHT 

9332  HOST ( J , K ) -WHOST ( J , K ) : NEXT : NEXT : H2CLK  < WW l , 2 ) -HBCLK 
8340  I F  MCLOCK (2,1) -WW 1  THEN  MCLOCK (2,2) -HBCLK 
8330  GOTO  8620 

8360  IF  H3CLK(WW 1,2) -HOLD  THEN  RETURN 

9370  HACLK-H3CLK  ( WW  1 , 2 )  :  NCAR  ( W  TYP )  -H3CLK  ■!  WW  1 ,  WT YP*6 )  l  GOSUB  8710 
8380  IF  NS-0  THEN  DLTIME-100 

8390  HBCLK-HOUR+OLTIME: IF  HACLK< -HBCLK  THEN  WDS-liGOTO  9620 
9600  FOR  J-l  TO  3: FOR  K-l  TO  NHT 

8602  HOST(J,K)-WHOST(J,K) : NEXT: NEXT: H3CLK (WWl , 2) -HBCLK 
8610  IF  MCLOCK (3, l ) -WWl  THEN  MCLOCK (3, 2) -HBCLK 

8620  IF  WDS-0  THEN  DS-OiCC-CCl :WW-WW1  ELSE  CC-O: WW-O: DS- 1 : WSET-i 
8630  CCl-Ol WWl-Ol WNS-O: WTYP-O: WLDT-Ot RETURN 

8639  ’ 

8640  IF  CC-0  THEN  RETURN  ELSE  CCl-0«WWl-0 
8630  IF  CC' 1  THEN  9670 

9660  IF  HI  CLK  (WW.  3)  ‘  '.2  OR  H1CLK  (WW,  0)01  THEN  RETURN  ELSE  8700 
8670  IF  CC,'  2  THEN  9690 

9680  IF  H2CLK ( WW , 3) ' ' 2  OR  H2CLK (WW. 0) < M  THEN  RETURN  ELSE  8700 
9690  IF  H3CLK  (WW,  3)  *'  2  OR  H3CLK(WW.O)  l  THEN  RETURN 
8700  CC1«CC:WW1«WW: RETURN 
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LIST  3701-0860 
0709  ' 

8710  WPAC-HEST (WLDT , WTYP ) -WH0ST (WLDT, WTYP) 

8712  IF  WNSCWPAC  THEN  8730 

8720  FOR  J-t  TO  3jF0R  K-l  TO  NHTj WHOST (J,K> -HEST (J,K> ! NEXTi NEXT: GOTO  8770 

8730  RMFRC l-WNS/WPAC 

8740  FOR  J-l  TO  3jF0R  K-l  TO  NHT 

8742  WHOST ( J , K) -WHOST (J,  K) +RMFRC ! t (HEST ( J , K  > -WHOST <  J ,  K>  > 

8730  IF  WHOST (J,  K ) >HEST ( J,  K) THEN  WHOST (J, K> -HEST (J, K> 

8760  NEXT j NEXT 

8770  NS-WHOST (WLDT . WTYP ) 

8780  IF  NS « NCAR (WTYP) THEN  8S00 

8790  FOR  J-l  TO  3«F0R  K-l  TO  NHT i WHOST ( J.K) -0»  NEXT i NEXT i WDS-Oi GOTO  9810 

8800  RMFRC !-(NS-NCPR (WTYP)) /NSi FOR  J-t  TO  3iF0R  K-l  TO  NHT 

8802  WHOST (J , K) -RMFRC ! KWHOST ( J , K ) J  NEXT i NEXT j  WDS-1 

9810  DLTIME-0 

8820  IF  NS— 0  THEN  RETURN 

8830  IF  NCAR ( WTYP ) < — v  THEN  8860 

8840  DLTIME-DLTIME+HTF (3, WLDT) j NCAR (WTYP) -NCAR (WTYP) -NSi GOTO ■ 8830 
9830  PRINT  WDS l CC 1 1 WW 1 j  CC j  WW  j  WSET  j  WNS I  RETURN 
9960  GOTO  9930 
Ok 
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